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PREFACE  TO  SEAMPLAN  VOLUME  1 1 1 


GENERAL  COMMENTS  — ALL  VOLUMES 

The  Surface  Environment  and  Mine  Planning  System  (SEAMPLAN)  reported 
in  three  volumes,  provides  an  integrated  computerized  planning  system  for 
evaluating  surface  coal  recovery  consistent  with  minimal  impact  on  environ- 
ments . 

The  SEAMPLAN  System  was  developed  on  a Hewlett-Packard  minicomputer 
using  the  RTE  III  operating  system  in  a highly  modular  software  design. 

Its  organization  revolves  around  three  functional  modules: 

1.  Data  Entry  and  Review 

2.  Production  Analysis 

3.  Impact  Analysis 

Each  module  is  divided  into  programs  combining  a user's  knowledge 
gained  through  interactions  with  information  found  in  standard  data  files. 

In  this  way  an  unfamiliar  user  is  quickly  provided  with  a broad  range  of 
computing  capability. 

In  addition  to  Roman  numeral  designation,  all  three  volumes  in  SEAM- 
PLAN are  given  Arabic  numeral  "1".  Future  reports,  which  may  be  new,  but 
related  material,  or  elaborations  and  other  extensions  of  current  material, 
will  be  given  sequential  Arabic  numeral  designations. 

Volume  I (OVERVIEW)  is  a stand  alone  manual  giving  a history  of  surface 
mining  and  a sequence  of  operational  events  relating  to  development  of  a 
mining  plan.  It  describes  acquisition,  adaption,  and  development  of  ap- 
plications software  necessary  for  efficient  operation.  A user  is  assisted 
in  selecting  equipment  for  setting  up  a project  and  applying  the  programs. 

Volume  II  (USER'S  GUIDE)  is  a stand  alone  manual  giving  step-by-step 
procedures  for  a manager,  engineer,  or  interested  user  to  successfully 
apply  SEAMPLAN  without  benefit  of  selecting  and  setting  up  a system  or 
without  in-depth  knowledge  of  the  mathematical  modeling  and  computational 
logic  internal  to  it. 


GENERAL  COMMENTS  “ VOLUME  1 1 1 

The  major  purpose  of  the  PROGRAM  DOCUMENTATION  is  to  provide  necessary 
information  for  SEAMPLAN  programs  through  data  descriptions  and  logical 
format.  Data  layout  charts  present  types  of  program  data  and  how  they  are 
input  and  output.  Appendices  cover  system  routines  and  file  types. 
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INTRODUCTION 


SECTION  I 


SE AMP LAN  is  developed  in  a tightly  structured  format  with  modulari- 
zation occurring  at  three  levels  (Figure  1) : 

1.  Data  Entry  & Review 

2.  Production  Analysis 

3.  Impact  Analysis.* 

Within  the  first  two  levels  (functional  modules)  are  sub  modules, 
each  accomplishing  a specific  task  previously  selected  by  user.  Each 
module  has  been  decomposed  into  one  or  more  program  segments  since  the 
complete  SEAMPLAN  overflows  core  on  the  Hewlett-Packard,  RTE  III. 

Since  the  complete  SEAMPLAN  package  overflows  core,  swapping  must 
take  place  between  program  segments.  The  parameters  needed  between 
programs  are  passed  through  a COMMON  block. 

The  swapping  technique  used  writes  the  COMMON  block  of  the  father 
program  out  to  the  disc.  The  son  program  is  then  scheduled  (2  - Data 
Entry  & Review),  retrieving  the  COMMON  area  from  the  disc  and  contin- 
uing son  program  execution. 

Upon  completion  of  the  son  program,  the  COMMON  area  is  then  writ- 
ten out  to  the  disc  again.  The  father  program  is  then  rescheduled.  At 
this  point  the  COMMON  area  is  read  back  from  the  disc  and  execution 
proceeds  from  the  point  of  transfer. 

Volume  III  is  organized  along  lines  of  the  control  hierarchy  in- 
herant  in  SEAMPLAN.  Individual  routines  are  described  in  the  main  body 
and  summarized  in  Appendix  B with  data  sheets.  Table  1 provides  a cross- 
reference  for  program  descriptions  and  data  sheets. 


* Although  impact  analysis  is  reserved  as  a functional  module  it  is 
an  empty  set  and  requires  no  discussion  for  this  publication. 
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SPLAN 


Modules  (continued) 


*Refer  to  Vol.  II  for  further  info  on  these  programs 


Table  1. 


Cross-Reference  (Programs/Data  Sheets) . 


PROGRAM  NAME 
(Subroutine) 

PROGRAM 

DESCRIPTION 

PAGE 

DATA  SHEET  PAGE 
(Appendix  B) 

ADM 

42 

1 

ADMUI 

44 

2 

ADMX 

43 

3 

AHAT 

62 

4 

ANALY 

55 

5 

AOBR 

6 

BCORD 

7 

BDATA 

45  ■ 

8 

BDGAA 

45 

9 

BFILL 

10 

BFL 

11 

BFLF 

12 

BF2 

19 

13 

BHEEL 

14 

BNR 

15 

BNRF 
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BOX 

29 

18 
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47 

20 
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19 
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CFINZ 

44 
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46 
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CMP  7 

65 
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56 

26 
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29 

27 

CNTUR 

39 

• 28 

CODER 

25 

29 
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4 

30 

CONDR 

37 

31 

CORE 

15 

32 

COREL 

17 

33 

CPF 

47 

34 

CRAMR 

52 

35 

CROSS 

53 

36 

CSDRW 

24 

37 

CSEDO 

24 

38 

CSEDT 

23 

39 

CSEOT 

25 

40 

CS3DD 

26 

41 

DATA 

42 

DBE 

45 

43 

DENRV 

2 

44 

DGINT 

3 

45 

DIAGR 

62 

46 

DIG 

47 
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PROGRAM  NAME  DESCRIPTION 

(Subroutine) PAGE 


DATA  SHEET  PAGE 
(Appendix  B) 


DLINZ 

44 

48 

DLS 

47 

49 

DLS2 

48 

50 

DMODS 

60 

51 

DMPFL 

37 

52 

DPFIO 

38  ■ 

53 
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55 
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51 
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57 
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36 
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62 
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47 
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59 
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20 
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37 

85 
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22 
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18 
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INAM 

89 
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61 
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19 

91 

INTER 
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93 

LINE 

52 

94 
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PROGRAM 

PROGRAM  NAME  DESCRIPTION  DATA  SHEET  PAGE 

(Subroutine) PAGE (Appendix  B) 


LRS 

46 

95 

LUOS 

75 

96 

MAKFL 

21 

97 
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39 

98 
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70 
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59 
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Table  1 


(Continued) . 


PROGRAM 

PROGRAM  NAME  DESCRIPTION  DATA  SHEET  PAGE 

(Subroutine) PAGE (Appendix  B) 
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DATA  ENTRY  & REVIEW  MODULE 


SECTION  II 


GENERAL 

Figure  2 shows  the  broad  SEAMPLAN  program  tree  with  submodules 
under  control  of  the  data  entry  and  review  executive.  These  modules 
will  be  described  subsequently.  Each  represents  a logical  program 
(subroutine)  grouping  and  takes  the  name  of  a controlling  program  or 
executive. 


SWAPPING  PROCEDURES 


A calling  program  sets  up  scheduling  needed  to  swap  in  a called 
program.  The  calling  program  then  calls  a subroutine  to  finish  swap- 
ping. The  swapping  subroutine  first  writes  the  COMMON  block  to  disc. 
The  called  program  swaps  into  main  memory.  When  the  called  program 
finishes,  control  returns  to  the  swapping  subroutine,  which  retrieves 
the  COMMON  block  from  disc  returning  control  to  calling  program.  The 
calling  program  now  releases  called  program,  whereupon  execution  con- 
tinues sequentially.  Details  for  disc  read  and  writes,  program  schedu- 
ling, and  others  are  given  in  executive  call  descriptions. 


PROGRAM  DENRV 


DENRV  (data  entry  and  review  functional  module  executive  program) 
is  swapped  by  SPLAN  after  which  a menu  is  placed  on  the  screen  listing 
user  options.  Following  input  of  an  option  number  by  the  user,  bran- 
ching is  accomplished  to  the  correct  block  of  code  for  implementation 
of  various  options.  All  options,  with  the  exceptions  of  contour  dis- 
play and  edit,  result  in  program  swapping  to  perform  selected  functions. 
Descriptions  are  given  in  later  sections  for  every  DENRV  routine.  Other 
information  for  DENRV  may  be  found  in  Appendix  B. 
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Program  MAIN 


Schedule  Called  Program 
Cal!  SUB  (Called  Program  Name) 
Release  Called  Program 


END 


Subroutine  SUB  (Called  Program  Name) 


Write  COMMON  To  Disk 
Swap  In  Called  Program 
Read  COMMON  From  Disk 
RETURN 
END 


Figure  2.— Swapping  Sequences. 
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sub-modules/program  descriptions 


DGINT  MODULE 

The  programs  and  subroutines  comprising  the  DGINT  module  provide 
the  user  of  SEAMPLAN  with  a fairly  complete  digitizing  data  entry  capa- 
bility. These  routines  were  coded  entirely  at  MSU,  and  rely  on  the 
Tektronix  Tablet  I/O  utility  routine. 

There  are  three  basic  types  of  data  handled  by  this  module:  1) 

continuous,  2)  random  3)  point.  Continuous  (vectored)  data  is  digi- 
tized, stored,  and  displayed  as  a series  of  points  representing  con- 
nected vectors.  Examples  include  contours,  roads  and  property  boun- 
daries. Random  data,  as  defined  in  SEAMPLAN,  are  continuous  data 
stored  as  X,  Y,  Z (location,  elevation)  triplets,  where  X,  Y values 
(location)  are  randomly  located  within  a map  area.  X,  Y points  may  be 
used  to  construct  uniform  grids  for  display  purposes.  Point  data 
identify  and  locate  map  or  land  features  existing  only  at  discrete 
points  in  the  map  area.  Examples  are  houses,  archealogical  sites,  and 
campgrounds . 

In  addition  to  programs  and  routines  that  aid  in  digitizing  each 
of  these  data  types,  there  are  several  subroutines  shared  among  pro- 
grams in  the  module.  This  is  possible  since  a standard,  consistant, 
method  is  used  for  several  functions  common  to  all,  such  as  locating 
a map  on  the  digitizing  tablet.  Table  2 summarizes  the  program  seg- 
ments, sub- routines,  and  their  functions  for  the  DGINT  module. 

Program  DGINT 

This  is  an  option  of  data  entry  and  review  whose  purpose  is  to 
control  access  to  the  three  types  of  digitizing  inputs  mentioned: 

1.  Digitize  continuous  data  (CONCN) 

2.  Digitize  random  data  (RNDIS) 

3.  Digitize  point  data  (PTDTA) . 

DGINT  is  swapped  into  memory  by  selecting  option  1 of  DENRV. 
Selection  of  option  9 returns  control  to  DENRV. 


Table  2.  — DGINT 

Module  Program  Segments 

NAME 

SUBROUTINES 

USE 

DGINT 

- 

Digitizing  Control 

CONCN 

SQUAR,  SCALE,  OTLN 
UPDAT,  SWCON 

, Continuous  data  digitizing 

CONDR 

MAPFO , CNTUR 

Continuous  data  drawing 

RNDIS 

SQUAR,  SCALE,  OTLN 

Random  (X,  Y,  Z)  digitization  of 
continuous  data 

RNDDR 

DRAWM 

Random  data  drawing 

PTDTA 

SQUAR,  SCALE,  OTLN 

Point  data  digitizing  (with  symbols) 

PNTDR 

DRAWM 

Draw  point  data  and  symbols 

SYMED 

SCALE,  SQUAR,  OTLN 

Edit  point  data  symbols 

Program 

CONCN 

Program 

CONCN  is  one  of  the 

options  of  DGINT,  whose  purpose 

is  to  digitize  continuous  data. 

Table  3.  — 

CONCN  File  Header 

WORD 

INFORMATION 

1 

file  type  (4) 

2-3 

minimum  geographical  X value 

4-5 

minimum  geographical  Y value 

6-7 

maximum  geographical  X value 

8-9 

maximum  geographical  Y value 

10-11 

contour  interval 

12-13 

minimum  elevation 

14-15 

maximum  elevation 

16-25 

job  name 

4 


Table  4. 


CONCN  Record  Header 


WORD  INFORMATION 

1 ICON  - continuation  flag 

(1)  - record  is  a continuation 

(2)  - start  a new  record 

2 ICT  - record  type 

(1)  - contour 

(2)  - road 

(3)  - water  stream 

(4)  - boundary 

(5)  - others 

3 IELEV  - elevation  of  contour 

(1  - for  all  other  record  types) 

4 ICPTS  - number  of  X,  Y coordinate 

pairs  in  the  record  (maximum  of  50 
per  record) 

5 (ICPTS  *2)  +4  X,  Y coordinate  pairs 


Positioning  of  the  map  is  done  through  subroutine  SQUAR.  All  points 
are  scaled  through  subroutine  SCALE  and  all  map  replicas  shown  on  the 
screen  are  accomplished  by  subroutine  OTLN  exactly  as  they  appear  on  the 
digitizing  tablet. 

The  user  is  required  to  enter  a data  file  name  and  a cartridge 
number  for  that  data  file.  A job  name  and  constant  contour  interval 
must  be  entered. 

The  constant  contour  interval  is  an  integer  value  whose  multiples 
determine  which  contours  are  to  be  drawn.  For  example,  a value  of  1 for 
the  constant  contour  interval  would  insure  that  all  contours  are  drawn, 
since  every  elevation  would  be  a multiple  of  1. 

The  user  is  also  asked  to  input  a scale  factor  for  the  map,  and 
values  for  the  origin,  which  is  assumed  to  be  the  lower  left  hand  corner 
of  the  map  . 

The  following  options  are  available  through  keyboard  entry  when 
digitizing : 

(E)  - Terminates  current  record  being  digitized.  The  program  writes 
out  the  record  up  to  the  point  where  an  "E"  is  entered.  The 
user  may  then  begin  digitizing  another  record  of  the  same  type. 
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For  example,  if  the  user  had  been  digitizing  a road, 
he  would  then  be  able  to  digitize  a different  road. 

(T)  - Terminates  the  current  record  built  thus  far  and  writes  this 

record  to  a record  file.  The  user  then  enters  a new  record  type. 

(S)  - Shows  the  file  to  date. 

(Q)  - Terminates  the  current  file  and  returns  control  to  DGINT. 

All  values  used  in  the  program  and  in  the  COMMON  block  are  described 
in  the  program. 

Control  is  returned  to  DGINT  by  either  entering  a "7"  or  "0"  through 
the  record  type  options,  or  by  entering  a "Q"  through  the  operating  in- 
structions. See  Figure  3. 


Subroutine  SWCON 


Subroutine  SWCON  is  designated  to  swap  in  the  continuous  data  drawing 
routine  (CONDR) . 

RTE-III  exec  calls  are  used  to  write  the  COMMON  block  out  the  disc, 
swap  in  the  drawing  routines,  and  to  retrieve  the  COMMON  block  from  the 
disc.  See  Appendix  D. 


Program  RNDIS 

Program  RNDIS  is  one  of  the  options  of  DGINT  (option  2) . The  program 
RNDIS  is  designed  to  digitize  random  data. 

The  file  created  by  RNDIS  is  an  ASCII  file  with  the  format  shown  in 
Table  5. 


Table  5.  — RNDIS  Data  File 


RECORD 

INFORMATION 

1 

NZS  - the  number  of  elevations  for  each  coordinate 
X,  Y pair.  (RNDIS  allows  only  one  elevation  for 
each  coordinate  X,  Y pair.) 

NPTS  - the  number  of  X,  Y,  Z records  in  the  file. 
(0  indicates  the  total  number  of  X,  Y,  Z records 
is  unknown) . 

2 - 

n + 1 

X,  Y,  Z 

n + 

2 

Contains  constants  of  1.E36  to  indicate  an  end  of 
f ile 
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Queries  For  Initialization — 
Find  Positioning  Of  The  Map 
Do  While  Response  + 0,  or  7 


Input  Option  From  Record 
Type  Options  Menu  (1,  2,  . . 6) 

If  (response  = 1,  2,  . . 5),  do 


If  (response  = 1)  Input  Elevation 
Digitize  Points  On  Record 
Input  Response  From  Operating 
Instructions  Menu  (E,  T,  S,  Q) 
Write  the  record  out  to 
the  file 


If  (response  = 'E')  Do 
Continue  With  Same 
Record  Type 

If  (Response  = T')  Do 
Continue 

If  (Response  = 'S')  Do 
Show  The  Map  To  Date 
Continue 

Sf  (Response  = 'Q')  T erminate  II 

Show  The  Map  To  Date 
Continue 

TERMINATE  Si 


Figure  3.— Flowchart  for  Program  CONCN. 


Subroutine  SQUAR  handles  positioning  of  the  map.  Subroutine  SCALE 
converts  tablet  coordinates  to  geographical  coordinates.  Subroutine  OTLN 
shows  the  positioning  of  the  map  on  the  digitizing  tablet. 

The  user  is  asked  to  supply  the  program  with  a file  name  and  car- 
tridge number.  Later,  the  user  also  supplies  a scale  factor  for  the  map 
and  the  geographical  coordinates  of  the  origin,  which  is  assumed  to  be 
in  the  lower  left  hand  corner  of  the  map. 

The  following  options  are  available  to  the  user: 

(D)  - Delete  the  last  X,  Y coordinate  entered.  Only  the  last  point 

can  be  deleted.  There  is  a one  point  buffer  that  is  used  to 
eliminate  the  need  for  large  arrays  to  hold  the  X,  Y coordinates 
and  their  respective  elevations.  When  a new  point  is  entered, 
the  point  currently  in  the  buffer  is  written  to  the  file  and 
the  new  point  is  written  to  the  buffer.  Because  of  this  buffer, 
only  the  last  point  entered  can  be  deleted. 

(E)  - Terminates  the  current  elevation  and  allows  the  user  to  enter 

a new  elevation. 

(P)  - Purges  the  file  currently  being  built  and  returns  control  to 

DGINT. 

(S)  - Swaps  in  the  program  RNDDR  which  shows  the  map  up  to  the  time 
it  is  called.  Upon  return  from  RNDDR  the  user  may  add  more 
points  to  the  file. 

(Q)  - Closes  the  current  file  after  having  written  constants  of  1.E36 

to  the  last  record  of  the  file.  Control  is  then  returned  to 
DGINT. 

* After  the  user  has  finished  building  this  ASCII  file,  a binary 
file  is  built  first  by  using  data  entry  and  review  option  3 and  then 
converting  the  binary  file  to  a grid  file,  which  is  the  only  file  used 
in  the  SPLAN  display  programs. 

Control  is  returned  to  DGINT  either  by  entering  an  elevation  value 
of  -999,  or  by  entering  a "P"  or  "Q"  during  the  operating  instructions. 

All  variables  used  in  RNDIS  and  in  its  COMMON  block  are  described 
within  the  program. 

Program  RNDDR 

Program  RNDDR  is  swapped  into  memory  by  entering  an  "S"  during  the 
operating  instructions  of  program  RNDIS.  The  purpose  of  RNDDR  is  to 
show  the  map  to  date  currently  being  built  by  RNDIS. 
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Subroutine  DRAWM  draws  an  outline  of  the  map  on  the  screen.  It  draws 
this  outline  in  the  largest  possible  area  while  avoiding  distortion. 

Some  useful  information  is  displayed  at  the  left  hand  margin  of  the 
screen.  It  includes  such  things  as  the  file  name,  minimum  and  maximum  X 
and  Y geographical  coordinates,  elevations,  and  a grid  interval. 

The  points  are  then  placed  on  the  map,  designated  by  a small  rec- 
tangle and  labeled  1,  2,  3,  

The  user  is  given  the  option  of  whether  or  not  he  wishes  to  get  a 
line  printer  listing  of  pertinent  information.  This  listing  includes  all 
of  the  information  displayed  at  the  left  hand  margin  of  the  screen  and 
geographical  coordinates  for  each  point  along  with  their  respective  eleva- 
tions. A summary  of  minimum  and  maximum  geographical  coordinates  and  ele- 
vations is  printed  at  the  end  of  the  output,  which  is  very  useful  in  editing, 
verifying  data,  and  creating  binary  and  grid  files. 

At  the  end  of  these  displays,  control  is  returned  to  RNDIS . Addi- 
tional data  may  then  be  added  to  the  ASCII  file. 

All  variables  used  in  the  program  and  in  the  COMMON  block  are  de- 
scribed within  the  program. 


Program  PTDTA 

Program  PTDTA  is  swapped  in  by  selecting  option  3 of  DGINT. 
PTDTA  handles  the  input  of  point  or  symbolic  data. 

The  files  created  by  PTDTA  are  binary-random-access  files  which 
contain  information  in  the  format  shown  in  Tables  6 and  7. 

Table  6.  — PTDTA  File  Header 


WORD 

INFORMATION 

1 

Type  of  file  (7) 

2-3 

minimum  geographical  X value 

4-5 

minimum  geographical  Y value 

6-7 

maximum  geographical  X value 

8-9 

maximum  geographical  Y value 

10-12 

symbol  table  name  (the  symbol  table  contains 
the  masters  for  the  symbols  along  with  their 
general  descriptions) . 

13 

Cartridge  number  where  the  symbol 
is  located. 

table  file 

14 

Job  name  or  a general  description 
being  created. 

of  the  file 
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Table  7. 


PTDTA  Record  Header 


WORD 

INFORMATION 

1 

symbol  number 

2-3 

geographical  X coordinate  of 

the 

symbol 

4-5 

geographical  Y coordinate  of 

the 

symbol 

6-15 

symbol  description 

Subroutine  SQUAR  locates  the  map  on  the  digitizing  tablet.  Sub- 
routine SCALE  accomplishes  all  conversion  and  scaling  from  tablet  coor- 
dinates to  geographical  coordinates.  Subroutine  OTLN  draws  an  outline 
of  the  map  as  it  appears  on  the  tablet. 

When  creating  a new  file,  the  user  enters  a file  name  and  a car- 
tridge number,  which  indicates  where  this  file  resides.  Similarly,  a 
symbol  table  name  is  entered  with  its  cartridge  designating  location. 
The  symbol  table  need  not  exist;  it  may  be  created  or  edited  through 
option  3 of  the  point  data  options.  The  user  must  also  enter  a scale 
factor  and  geographical  coordinates  for  the  map.  Map  origin  is  assumed 
to  be  the  lower  left  hand  corner  of  the  map. 

The  options  available  to  the  user  are: 

1.  Add  a symbol  to  the  map.  The  user  is  asked  which  symbol  to 
add.  The  program  will  check  to  see  if  a symbol  actually 
exists  at  that  location  in  the  symbol  table.  If  a symbol 
exists,  then  the  general  symbol  identification  will  be  dis- 
played for  verification.  The  user  may  now  enter  an  identi- 
fication for  the  point  to  be  digitized  and  input  as  many 
occurrences  of  that  symbol  as  he  desires.  After  each  occur- 
rence, the  symbol  and  other  pertinent  information  will  be 
displayed  for  verification.  This  includes  symbol  table  name, 
symbol  number,  a general  symbol  description,  and  point  iden- 
tification . 

2.  This  option  swaps  program  PNTDR,  which  shows  the  map  to  date. 
Upon  completion,  control  returns  to  PTDTA. 

3.  This  option  swaps  program  SYMED,  which  creates  or  edits  the 
symbol  table  file  and  should  always  be  called  first  to  verify 
that  a symbol  table  exists.  Upon  completion,  control  returns 
to  PTDTA. 

4.  Purges  file  currently  being  built.  Control  returns  to  DGINT. 

0.  Terminates  PTDTA  and  control  returns  to  DGINT. 
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All  variables  in  the  program  and  those  used  in  the  COMMON  block 
are  described  within  the  program  and  in  Appendix  B. 


Program  PNTDR 

Program  PNTDR  is  swapped  in  by  selecting  option  2 of  PTDTA.  PNTDR 
draws  the  maps  created  by  PTDTA  (point  data) . 

Subroutine  DRAWM  draws  a replica  of  the  map.  The  user  may  show  all 
symbols  which  have  been  digitized  at  the  point  of  the  call  or  specify  up 
to  ten  different  symbol  numbers  he  wishes  to  display. 

The  user  can  then  specify  by  using  the  cursors,  which  map  areas  are 
to  be  checked  to  display  each  of  these  symbols.  The  user  first  positions 
the  cursors  to  the  lower  left  hand  corner  of  the  desired  area,  then  posi- 
tions the  cursors  to  the  upper  right  hand  corner  of  the  desired  area.  He 
may  specify  a different  area  for  each  of  the  symbols.  An  input  of  0 
terminates  this  process. 

Another  replica  of  the  map  is  then  drawn.  All  pertinent  symbols 
are  placed  on  the  map.  Each  of  these  symbols  is  labeled  as  before  with 
1,  2,  3,  

Useful  information  is  then  written  at  the  left  hand  margin  of  the 
screen,  which  contains  a file  description,  file  name,  symbol  table  name, 
minimum  and  maximum  geographical  X and  Y coordinates,  and  a grid  interval. 

The  user  may  also  obtain  a line  printer  listing  of  symbol  identifica- 
tion and  a general  symbol  description  of  all  displayed  symbols.  This  list- 
ing also  contains  all  information  displayed  at  the  left  hand  margin  of  the 
screen. 

The  user  may  request  another  drawing.  If  so,  the  process  begins 
over  again.  If  the  user  does  not  request  another  drawing,  control  returns 
to  program  PTDTA,  where  more  data  may  be  added  to  the  files. 

All  variables  used  in  the  program  and  in  the  COMMON  block  are  de- 
scribed within  the  program. 


Program  SYMED 

Program  SYMED  is  swapped  in  by  selecting  option  3 of  PTDTA.  SYMED 
creates  or  edits  the  symbol  table  used  by  PTDTA  and  PNTDR. 

System  routine  DAFMP  creates  files  used  for  symbol  tables.  It  also 
creates  a randomly  accessed-f ixed  length-binary  file  with  a record  format 
shown  in  Table  8. 
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Table  8. 


SYMED  File  Data 


WORD  INFORMATION 


1 

symbol  number 

2-11 

symbol  description 

12-n 

X,  Y pairs  that  are  connected  to  form  the 
symbol.  The  constant  -999.9  indicates  there 
are  no  more  X,  Y pairs  for  this  symbol. 

(The  symbol  can  contain  no  more  than  ten 
X,  Y pairs.) 

Subroutine  SQUAR  is  used  to  locate  the  positioning  of  the  map  on  the 
digitizing  tablet.  Subroutine  SCALE  does  all  of  the  scaling.  The  symbol 
scales  in  such  a way  that  it  is  contained  within  an  area  where  both  the 
X and  Y axis  go  from  0 to  1 . 

The  following  options  are  available  to  the  user: 

1.  Enter  a new  symbol.  When  entering  a new  symbol  the  user  is 
asked  to  input  a symbol  number  (1-50)  and  a general  symbol 
description.  He  may  then  use  the  CRT  crosshairs  to  digitize 
symbol  vectors.  An  input  of  "Q"  indicates  he  is  finished 
digitizing  the  vectors  of  the  symbol.  An  input  of  "R"  purges 
the  symbol  currently  being  built.  When  the  user  is  finished 
digitizing  the  symbol,  SYMED  checks  to  see  whether  or  not  a 
symbol  already  exists  at  that  location.  If  no  symbol  exists, 
the  symbol  is  written  to  the  file.  If  a symbol  already  exists 
at  the  specified  location,  the  user  has  three  options: 

a.  The  user  can  move  the  symbol  to  a new  location.  If  one 
exists,  SYMED  will  display  the  first  available  location. 

b.  The  user  may  replace  the  old  symbol  with  the  new  symbol. 

c.  The  user  may  decide  not  to  add  the  symbol  to  the  table  at  all. 

2.  Display  a single  symbol.  The  symbol  is  displayed  on  the  screen 

along  with  its  symbol  number  and  general  symbol  identification. 

3.  Display  the  whole  table.  The  symbols,  symbol  numbers,  and 
general  symbol  identification  are  displayed  five  at  a time  on 
the  screen. 

4.  Display  the  symbol  table  name. 

5.  Purge  the  symbol  table.  Returns  control  to  PTDTA. 

0.  Terminate.  Control  returns  to  PTDTA. 
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Caution  should  be  used  when  replacing  an  old  symbol  with  a new  symbol. 
The  files  created  by  PTDTA  contain  only  a pointer  to  the  master.  If  the 
master  is  changed  the  file  now  points  to  the  new  master. 

Variables  used  in  the  program  and  in  the  COMMON  block  are  described 
within  the  program  and  in  Appendix  B. 

Subroutine  SQUAR 

Subroutine  SQUAR  is  called  by  virtually  all  the  digitizing  input  rou- 
tines. It  is  used  to  find  the  position  of  the  map  on  the  digitizing  tablet 

To  locate  the  map  subroutine  SQUAR  needs  three  points,  which  are: 

1.  The  location  of  the  lower  left  hand  corner  of  the  map. 

2.  The  location  of  the  lower  right  hand  corner  of  the  map. 

3.  The  location  of  a point  along  the  upper  edge  of  the  map. 

Using  the  first  two  points,  the  subroutine  determines  the  range  of 
the  X-axis  and  the  equation  of  the  line  used  to  represent  the  X-axis. 

A perpendicular  is  then  dropped  from  the  point  on  the  upper  edge  of 
the  map  to  the  X-axis.  The  range  of  the  Y-axis  is  calculated  by  determin- 
ing the  length  of  this  perpendicular. 

The  angle  of  rotation  for  the  map  is  calculated  by  finding  the  angle 
whose  tangent  is  the  change  in  Y of  the  X-axis  divided  by  the  change  in  X 
of  the  X-axis.  If  the  map  is  rotated  in  a clockwise  direction  this  is  the 
angle  of  rotation,  however,  if  the  map  is  rotated  in  a counter-clockwise  di 
rection  the  angle  of  rotation  is  the  negation  of  this  angle. 

The  parameter  required  from  the  calling  programs  is: 

IC  - flag  to  indicate  whether  or  not  an  outline  of  the  map  as 
it  appears  on  the  tablet  should  be  drawn.  (1  - indicates 
an  outline  of  the  map  shouid  be  drawn,  and  subroutine  OTLN 
is  called. ) 

The  parameters  returned  to  the  calling  program  are: 

XMLL,  YMLL  - tablet  coordinates  of  the  lower  left  hand  corner 
of  the  map. 

XMLR,  YMLR  - tablet  coordinates  of  the  lower  right  hand  corner 
of  the  map. 

DX4,  DY4  - tablet  coordinates  of  the  upper  left  hand  corner  of 
the  map 

DXM  - absolute  tablet  distance  of  the  X-axis  of  the  map. 

DYM  - absolute  tablet  distance  of  the  Y-axis  of  the  map. 

ROANG  - the  angle  of  rotation  for  the  map  relative  to  the 
X-axis  of  the  tablet. 


Subroutine  SCALE 


Subroutine  SCALE  is  designed  to  be  used  by  all  the  digitizing  input 
routines.  It  is  used  to  convert  the  points  entered  from  digitizing  tabiet 
coordinates  to  geographical  coordinates. 

The  steps  involved  in  this  process  are: 

1.  Translate 

2.  Rotate 

3.  Scale. 

The  first  step  involved  in  this  conversion  is  to  translate  the  point. 
This  is  done  by  translating  the  origin  of  the  map  (assumed  to  be  the  lower 
left  hand  corner  of  the  map)  to  the  tablet  origin. 

The  second  step  involved  in  this  conversion  is  to  calculate  the  rota- 
tion of  the  point.  The  equations  for  this  rotation  are: 

XY  = X * cos  (0)  + Y * sin  (0) 

» 

YX  = -X  * sin  (0)  + Y * cos  (0) 
where  0 is  the  angle  of  rotation. 

The  final  step  in  the  conversion  process  is  to  scale  the  point.  The 
equations  for  this  are: 

X'  = XMIN  + (X/100  * SCL) 

Y'  = YMIN  + (Y/100  * SCL) 

where : 


X1,  Y'  - are  the  geographical  coordinates  of  the  map, 

XMIN,  YMIN  - are  the  geographical  origins  of  the  map. 

X,  Y - are  the  absolute  distances  of  the  point  from  the  origin. 
100  - conversion  factor  (on  this  particular  tablet  there  are 
approximately  100  points  per  inch) . 

SCL  - scale  factors  of  the  map  (units/inch) 

The  parameters  needed  from  the  calling  programs  are: 

XMIN  - geographical  X coordinate  of  the  map  origin 
YMIN  - geographical  Y coordinate  of  the  map  origin 
XMAX  - maximum  geographical  X coordinate  of  the  map 
YMAX  - maximum  geographical  Y coordinate  of  the  map 
ROTAN  - the  angle  of  rotation  for  the  map  with  respect  to  the 
X-axis  of  the  digitizing  tablet 
XMLL  - the  tablet  X coordinate  of  the  map  origin 
YMLL  - the  tablet  Y coordinate  of  the  map  origin 
IX  - the  tablet  X coordinate  of  the  point  to  be  scaled 
IY  - the  tablet  Y coordinate  of  the  point  to  be  scaled 
SCL  - the  scale  factor  of  the  map. 
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**Translate  Point  (IX,  1Y)  From  With 
Respect  To  Map  Origin  (XMLL,  YMLL) 

To  Respect  With  Tablet  Origin  (0,  0) 

(Fig.  1)  ** 

XI  = IX -XMLL 
Yi  = 1 Y - YMLL 

**  Rotate  Point  (XI,  Y1)  From  Map 
Axis  To  Tablet  Axis  (Fig.  5) 

X2  = XI  * COS  (ROTAN)  + Y1  * SIN  (ROTAN) 
Y2  = -XI  * SIN  (ROTAN)  + Y1  * COS  (ROTAN) 

**Scale  The  Point  (X2,  Y2)  To  Be 
Consistent  With  Geographical 
Coordinates  ** 

X = minimum  geographical  X + 

(X2/pts/inch  on  tablet* 
the  scale  factor  of  the  map) 

Y = minimum  geographical  Y + 

(y2/pts/inch  on  tablet  * 
the  scale  factor  of  the  map) 

RETURN 


Figure  4.— Flowchart  for  Subroutine  SCALE 


TRANSLATION 


ROTATION 

(0,4096)  (4096, 4096) 


1 '51, 


Figure  5— Translation  & Rotation  of  Maps  of  Digitizing  Board 


The  parameters  returned  by  SCALE  are: 

X - the  geographical  X coordinate  of  the  scaled  point 
Y - the  geographical  Y coordinate  of  the  scaled  point 
IERR  - error  code  of  a -9  is  returned  if  the  point  scaled  is 
not  within  the  boundaries  of  the  map. 

Upon  return  to  the  calling  program  none  of  the  parameters  from  the 
calling  program  have  been  changed. 

Subroutine  OTLN 

Subroutine  OTLN  is  designed  to  be  used  by  all  digitizing  input  routines. 
It  is  designed  to  draw  an  outline  of  the  map  as  it  appears  on  the  digitizing 
tablet. 

This  is  accomplished  by  taking  the  tablet  coordinates  of  three  corners 
of  the  map  and  dividing  these  by  four.  The  division  by  four  is  necessary 
since  there  are  four  tablet  points  for  each  screen  point. 

The  three  corners  of  the  map  used  are: 

1.  The  lower  left  hand  corner 

2.  The  lower  right  hand  corner 

3.  The  upper  left  hand  corner. 

The  fourth  corner  of  the  map  is  calculated  using  the  other  three. 

The  parameters  needed  from  the  calling  program  are: 

XMLL,  YMLL  - the  tablet  coordinates  of  the  lower  left  hand 
corner  of  the  map 

XMLR,  YMLR  - the  tablet  coordinates  of  the  lower  right  hand 
corner  of  the  map 

DX4,  DY4  - the  tablet  coordinates  of  the  upper  left  hand  corner 
of  the  map. 

Subroutine  DRAWM 


Subroutine  DRAWM  is  designed  to  be  used  by  the  digitizing  output  rou- 
tines. It  is  designed  to  sketch  an  outline  of  the  map,  along  with  labeling 
the  axis,  in  the  biggest  allowable  screen  area.  This  is  done  in  such  a way 
as  to  avoid  any  distortion  of  the  map. 

The  origin  of  the  map  is  located  at  the  screen  coordinates  (250,  30). 

The  lengths  of  the  axis  on  the  screen  are  determined  from  the  geographical 
lengths  of  the  axis.  If  the  geographical  length  of  the  X-axis  is  greater 
than  the  geographical  length  of  the  Y-axis  then  the  length  of  the  X-axis  is 
set  to  750  and  the  Y-axis  is  scaled.  This  scaling  is  accomplished  by  calcu- 
lating the  proportion  of  the  geographical  Y-axis  to  the  geographical  X-axis. 
The  X-axis  is  set  to  the  value  of  750  because  the  screen  viewing  area  is 
1,000  by  750.  However,  if  the  geographical  Y-axis  has  a greater  length  than 
that  of  the  geographical  X-axis,  then  the  length  of  the  Y-axis  is  set  to 
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720  and  the  length  of  the  X-axis  is  scaled.  This  scaling  is  accomplished 
by  calculating  the  proportion  of  the  geographical  X-axis  to  the  geographi 
cal  Y-axis. 

An  outline  of  the  map  is  then  drawn  on  the  screen.  Tick  marks  are 
then  inserted  and  labeled  on  both  the  X and  Y axis.  The  interval  used 
for  placing  these  tick  marks  on  the  maps  is  calculated  by  dividing  the 
length  of  the  longest  geographical  axis  by  ten. 

The  left  hand  margin  of  the  screen  is  used  for  outputing  useful  in- 
formation. 

The  following  parameters  are  needed  from  the  calling  programs: 

XMIN,  YMIN  - the  geographical  coordinates  of  the  origin 
of  the  map. 

XMAX,  YMAX  - the  maximum  geographical  coordinates  of  the  map. 

The  following  parameters  are  returned  to  the  calling  programs: 

GRINT  - the  grid  interval  at  which  the  tick  marks  are  placed. 

MXS  - the  length  of  the  X-axis  in  screen  coordinates. 

MYS  - the  length  of  the  Y-axis  in  screen  coordinates. 


CORE  MODULE 


The  programs  and  subroutines  comprising  the  CORE  module  of  SEAMPLAN 
provides  the  user  with  a method  of  evaluating  data  from  corehole  samples 
in  an  efficient  and  useful  form  for  identifying  surfaces  for  later  re- 
clamation use. 

This  module  performs  three  basic  functions:  (1)  boundary  identifica- 
tion, (2)  correlation,  (3)  and  presentation  of  a subset  of  coreholes  for 
analysis. 

Boundary  identification  consists  of  defining  a critical  value  for 
all  the  coreholes.  This  may  be  done  by  the  user  or  by  using  a default 
value.  Boundary  identification  may  also  be  used  to  locate  specific  para- 
meter boundaries  by  aggregating  the  adjacent  sampling  intervals  in  which 
there  occurred  a common  value  above  the  critical  level  for  the  parameter. 

The  correlation  function  provides  continuous  surface  contour  display 
for  the  user  to  analyze  bed  and  formation  boundaries.  The  continuous  sur 
face  contour  displays  are  generated  by  connecting  the  boundaries  between 
selected  holes  to  provide  random  points. 

The  analysis  of  a subset  of  coreholes  generates  contoured  cross- 
section  displays  of  specified  coreholes  and  parameters.  These  displays 
allow  the  user  to  define  specific  beds  and  boundaries  through  the  use 
of  the  Tektronix  4014  graphics  terminal. 


In  addition  to  the  programs  and  subroutines  actually  utilized  by 
the  CORE  module  of  SEAMPLAN  there  exists  a collection  of  programs  to 
convert  raw  corehole  data  to  data  files  compatible  with  the  CORE  module 
routines.  Table  9 summarizes  the  program  segments,  associated  routines 
and  their  function  for  the  CORE  module. 

Table  9,  — CORE  Program  Segments 


NAME 

SUBROUTINES 

USE 

XSEC 

- 

Cross-sectional  corehole  analysis 

RTRVL 

“ 

Retrieves  corehole  records  from 
keyed  file 

COREL 

Corehole  parameter  based  correla- 
tion 

GRFF 

SORT,  XLINE, 
INTER 

Draws  bar  graphs 

BUILD 

BF2 

INPT 

Conversion  and  test  programs  used 
to  convert  raw  corehole  data  to 
data  files  compatible  with  the  rest 
of  the  CORE  module. 

Program  CORE 

Program  Core  is  scheduled  by  DENRV  to  interface  between  the  user  and 
the  CORE  hole  analysis  routines.  Upon  execution,  CORE  first  places  a menu 
on  the  Tektronix  screen.  Based  on  the  user's  selection  from  the  menu,  either 
program  XSEC  or  COREL  will  be  scheduled,  or  control  will  be  returned  to 
DENRV.  XSEC  is  the  program  which  interactively  performs  cross-section  core- 
hole data  analysis,  while  COREL  performs  corehole  based  parameter  correlation. 
The  user  is  referred  for  further  information  to  the  description  of  these  two 
routines,  and  to  Appendix  B for  a summary  of  the  characteristics  of  CORE. 

Program  XSEC 

Program  XSEC  is  executed  when  the  user  selects  option  1 of  the  corehole 
analysis  option  of  Data  Entry  and  Review.  It  allows  the  user  to  build  an 
ASCII  XYZ  file  of  a cross-section  of  several  coreholes.  The  ASCII  file  may 
then  be  converted  to  a grid  file  through  the  use  of  related  data  entry  and 
review  programs.  This  allows  the  user  to  see  three  dimensional  or  contour 
displays  of  the  varying  concentration  values  of  a particular  parameter 
down  through  the  test  hole  and  between  different  test  holes.  This  process 
is  illustrated  in  Figure  6. 

The  user  inputs  the  names  of  the  binary  keyed  files  he  wants  to  analyze 
and  the  parameter  (choose  from  # RAW29,  //RAW  31 , //RAW32 , //RAW35 , //RAW37)  . The 
X,  Y coordinates  of  each  hole  are  retrieved  and  plotted  on  a "map”  of  the 
test  hole  area.  The  user  is  also  given  the  option  of  choosing  the  X,  Y 
coordinates  of  each  test  hole  by  marking  the  location  on  the  "map". 
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XSEC 


Plot  test  holes  on 
map  using  X,  Y 
coordinates 


User  inputs  test 
hole  file  names— 
name  points 


Figure  6.— Cross-section  corehole  analysis  procedure 


The  X,  Y coordinates  of  the  selected  holes  are  projected  onto  a straight 
line  whose  equation  is  calculated  by  the  use  of  regression  equations.  The 
new  test  hole  coordinates  are  translated  to  a new  origin  (XO)  , YO) , the  left 
most  coordinate  of  the  line  within  the  mapping  area,  and  scaled  so  the  mag- 
nitude of  the  coordinates  ranges  between  100  and  1,000.  The  scaled  X coor- 
dinates on  the  new  X-axis  are  written  as  the  x parameter  into  an  ASCII  XYZ 
file.  The  elevations  at  each  sampling  interval  are  written  as  the  Y para- 
meter into  the  XYZ  files.  The  parameter  key  concentration  value  at  each 
interval  is  written  as  the  Z value  in  the  file.  Finally,  control  returns 
to  the  corehole  analysis  options. 

Program  RTRVL 

Program  RTRVL  is  used  by  program  XSEC  to  retrieve  data  from  the  keyed 
access  files  used  by  the  corehole  analysis  programs.  It  uses  the  keyed 
access  routines  OPENK,  RETRV,  and  CLOSK. 

First,  the  specified  corehole  file  is  opened  by  OPENK.  Then  the  first 
header  of  the  file  is  retrieved  by  RETRV.  This  header  contains  the  number 
of  records  in  the  file  as  well  as  other  information.  RTRV1  then  reads  the 
second  (user)  header  of  the  file,  again  using  RTRV,  which  contains  the  ele- 
vation levels  where  samples  were  taken  for  the  corehole  of  interest.  Next, 
the  data  record  for  the  corehole  is  retrieved,  and  finally  the  raw  data  file 
for  the  corehole  is  closed,  (using  CLOSK).  At  this  point  control  returns 
to  the  program  XSEC. 

Program  COREL 

Program  COREL  is  executed  when  the  user  selects  option  2 of  the  core- 
hole analysis  menu.  It  is  designed  to  let  the  user  correlate  test  hole 
beds  based  on  non-lithologic  parameter  (data) types.  Program  COREL  uses 
the  binary  keyed  files  created  by  RNPT.  (// RAW20,  //RAW29,  //RAW31,  //RAW32, 
//RAW35,  and  #RAW37  are  samples  available  for  demonstration.)  The  user 
specifies  one  parameter,  or  key,  to  be  evaluated  and  analyzes  one  hole  at 
a time.  The  general  procedure  is  summarized  in  Figure  7. 

COREL  then  swaps  in  GRFF  which  creates  a bargraph  display.  The  con- 
centration values  of  the  parameter  are  shown  in  the  X direction  and  the 
sampling  interval  elevation  in  the  Y direction  on  this  display.  The  user 
must  next  verify  the  accuracy  of  the  given  critical  value,  or  specify  one 
if  there  isn't  a default  value  given. 

Next,  the  elevations  where  the  parameter  concentration  values  are 
greater  than  or  equal  to  the  critical  level  are  marked  on  the  graph.  The 
user  selects  elevations  which  mark  the  upper  and  lower  boundaries  of  a "bed", 
and  labels  the  bed  with  a 4 character  name,  for  example  BEDA,  which  is  used 
as  the  first  half  of  the  name  of  the  ASCII  XYZ  file  which  contains  the  X,  Y 
coordinates  hole  and  the  elevation  of  the  boundary  as  the  Z value.  Up  to 
15  unique  beds  per  test  hole  are  allowed. 

This  process  of  marking  and  labeling  beds  is  repeated  for  up  to  100 
test  holes  allowing  the  user  to  compare  two  beds  at  a time  in  order  to  core- 
late the  beds.  Each  time  a new  test  hole  is  selected  control  returns  to 
COREL,  the  data  is  retrieved  via  the  utility  programs  and  passed  to  GRFF 
through  COMMON  when  GRFF  is  swapped  in  again. 
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Figure  7.— COREL  Correlation  Procedure 


s 
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When  all  the  holes  have  been  evaluated,  COREL  creates  2 ASCII  files 
for  each  bed  named.  One  contains  the  X,  Y (location)  Z values  (elevations) 
of  the  top  of  the  bed  (ex  //TBEDA)  one  per  hole,  and  the  second  file  contains 
the  Z values  of  bottom  of  the  bed  (ex  #BBEDA) . 

Binary  XYZ  files,  grid  files,  contours  and  3-dimensional  displays  may 
be  constructed  from  these  ASCII  files  by  other  Data  Entry/Review  programs. 
Upon  completion  of  COREL  control  returns  to  the  corehole  analysis  options. 

Program  GRFF 

Program  GRFF  is  scheduled  (swapped)  by  COREL  and  is  designed  to  dis- 
play a bargraph  of  the  concentration  values  of  a given  parameter  of  a test 
corehole. 

The  screen  is  first  cleared,  then  labelled  X and  Y axes  are  drawn  on 
the  screen.  The  bargraph  of  the  parameter  of  a test  corehole  is  then  drawn 
and  labelled.  The  X-axis  gives  the  concentration  of  the  parameter  and  the 
Y-axis  gives  the  sampling  interval  elevations.  The  label  includes  the  name 
of  the  corehole  along  with  the  name  of  the  parameter  displayed.  A dashed 
critical  value  line  is  also  shown  and  labelled  on  the  map. 

The  critical  value  can  then  either  be  confirmed  or  altered.  There 
are  two  different  ways  for  the  user  to  alter  the  critical  value.  The 
first  is  by  typing  in  the  new  critical  value,  and  the  second  is  by  position- 
ing the  cursors  on  the  bargraph  to  the  new  critical  value.  The  user  then 
specifies  and  Tables  beds  from  this  corehole.  This  is  accomplished  by 
using  the  cursors  to  locate  the  top  and  the  bottom  of  each  bed  of  interest. 
Finally  this  data  is  written  out  to  an  ASCII  XYZ  data  file  for  future  use, 
and  returns  to  the  program  COREL. 

Subroutine  XLINE 

Subroutine  XLINE  draws  the  critical  level  line  on  the  bargraph  for  the 
program  GRFF.  It  also  labels  this  critical  value  line  and  shows  the  default 
value  for  the  line  if  one  exists. 

Subroutine  INTER 


Subroutine  INTER  performs  the  user  interaction  for  the  program  GRFF. 

It  also  retrieves  the  name  of  the  next  test  corehole  to  be  correlated.  It 
allows  the  user  to  define  a new  critical  value  for  the  test  corehole,  which 
is  done  either  by  entering  the  new  critical  value  directly  using  the  key- 
board on  the  scope,  or  by  positioning  the  cursors  on  the  bar  graph  to  the 
new  critical  value. 

Subroutine  SORT 


Subroutine  SORT  finds  the  maximum  and  minimum  of  the  concentration  for 
a parameter  of  a test  corehole. 
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Program  BUILD 


Program  BUILD  is  a typical  application  program  for  the  corehole  analy- 
sis option  of  data  entry  and  review.  It  implements  the  first  step  in  a 
two  step  process  to  convert  the  Thunder  Basin  corehole  data  into  keyed  ac- 
cess binary  files  which  can  be  used  by  the  corehole  analysis  routines. 

Program  BUILD  takes  the  original  data,  which  is  in  a type  three  file 
ASCII,  (variable  length  records,  sequential  access),  and  writes  it  into  a 
Hewlett-Packard  type  two  file  binary  (fixed  length  user-defined  records, 
random  access) . 

Program  BF2 

Program  BF2  is  a test  and  verification  program  used  on  the  keyed  access 
binary  files  (created  by  INPT)  that  are  used  for  the  corehole  analysis  op- 
tion of  data  entry  and  review.  It  uses  the  keyed  access  routines  OPENK, 
CLOSK,  RETRV.  These  routines  are  used  to  open,  close,  and  retrieve  data, 
respectively  on  the  corehole  files. 

Program  INPT 

Program  INPT  is  an  example  application  program  for  preparation  of  raw 
data  files  for  corehole  analysis.  It  is  the  second  step  in  a two  step  pro- 
cess to  convert  Thunder  Basin  corehole  data  into  keyed-access  binary  files 
which  can  be  used  by  the  corehole  analysis  routines. 

Program  INPT  takes  the  type  2 file  (fixed  length,  user-defined  records; 
random  access)  created  by  BUILD  and  creates  a keyed  access  binary  file  from 
it,  using  the  keyed  access  routines.  The  keys  for  this  file  are  the  names 
of  the  parameter  used  in  sampling  the  corehole. 

The  sizes  of  the  data  files  are  specified  in  this  program.  BUILD  and 
INPT  may  be  used  as  models  for  converting  corehole  data  from  its  original 
format  to  the  format  required  by  the  access  routines  which  are  used  in  COREL 
and  XSEC.  The  data  needed  by  the  utility  programs  is  passed  from  the  main 
program  through  COMMON,  and  as  arguments  in  the  subroutine  CALL. 

The  keyed  file  I/O  programs  that  are  used  by  INPT  are: 

SETUP  (NAM)  - Creates  a binary  file  (NAM)  according  to  the 
block  and  record  length  sizes  specified  in  COMMON  and 
saves  these  sizes  in  the  first  five  words  of  the  file. 

INSRT  (KODE,  IHEAD,  IKEY,  IWD,  IBUFH)  - inserts  IBUFH  as  a 
header  record,  length  = IWD,  or  as  a parameter  key  re- 
cord. Each  parameter  key  is  written  in  a key  header 
where  the  position  of  the  key  in  the  header  corresponds 
to  the  position  of  the  data  record  in  the  file. 

CLOSK  - Closes  the  keyed  file. 

BLOCK  DATA  - required  because  labelled  COMMON  is  used  in  all 
utility  routines. 
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GRCNT  MODULE 


The  programs  and  subroutines  comprising  the  GRCNT  module  of  SEAMPLAN 
provide  the  user  with  the  ability  to  translate  raw  ASCII  XYZ  data  to  data 
files  compatible  with  the  grid  file  operation  and  display  modules.  These 
grid  files  are  used  to  generate  contour  maps,  and  three  dimensional  maps 
which  are  useful  in  providing  the  user  with  an  understanding  of  the  lay 
of  land  he  is  working  with. 

This  conversion  from  raw  ASCII  XYZ  data  to  binary  grid  files  is  a 
two  step  process.  The  first  step  is  to  convert  the  random  ASCII  XYZ 
data  to  sorted  binary  data  files.  These  sorted  binary  data  files  are 
then  used  as  input  for  the  generation  of  the  grid  files. 

Many  of  the  programs  and  subroutines  used  by  this  module  were  adap- 
ted from  the  Stampede  package.  Table  10  summarizes  the  program  segments, 
associated  routines  and  their  function  for  the  GRDNT  module. 


Table  10-  — GRCNT  Program  Segments 


NAME 

SUBROUTINES 

USE 

GRCNT 

- 

Control 

NMPRX 

STMBS 

Constructs  a square  grid  system 
over  an  area  described  by  XYZ 
input. 

STMBT 

STMBB, 

STMBZ 

STMBC, 

STMBD , 

STMBU 

STMBG, 
STMBJ , 

STMBH, 

STMBK, 

STMBI , 
STMBZ 

STMBV 

STMBE , 

STMBF, 

STMBZ 

MAKFL 

- 

Control  for  conversion  from  ASCII 
XYZ  to  binary  files. 

MKINP 

- 

Input  of  ASCII  XYZ  file 

MKSRT 

STMAD 

Sorts  ASCII  XYZ  file 

MKOUT 

Output  of  sorted  ASCII  XYZ  file 
to  binary  files 
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Program  GRCNT 


GRCNT  is  scheduled  (swapped)  by  DENRV,  and  allows  the  user  to  translate 
available  alphnumeric  XYZ  data  files  into  internally  compatible  sorted  bi- 
nary XYZ  files.  Also,  this  routine  allows  the  translation  of  these  binary 
files  into  grid  files  which  may  then  be  used  in  a variety  of  displays.  The 
logic  of  the  routine  is  fairly  simple,  and  begins  with  presentation  of  a 
menu  on  the  screen  to  the  user.  Following  input  of  the  users  options  code 
selection,  program  MAKFL  or  NMPRX  may  be  scheduled  to  accomplish  the  binary 
XYZ  file  construction  of  grid  file.  Alternatively,  control  may  be  returned 
to  DENRV.  Following  selection  of  either  of  the  file  construction  options, 
the  menu  is  once  again  displayed  until  the  user  elects  to  terminate.  For 
information  concerning  the  formats  and  use  of  each  of  the  file  types  con- 
trolled by  GRCNT,  the  user  is  referred  to  Appendix  B.  In  addition,  GRCNT ' s 
characteristics  are  summarized  in  Appendix  B. 

Program  NMPRX 

A complete  description  of  the  function  of  STAMPEDE  program  NUMAPROX 
can  be  found  in  the  Stampede  Reference  Manual  (1).  For  purposes  of 
implementation  of  the  minicomputer  system,  user  interactive  input  was  added 
to  the  program  and  the  program  was  divided  into  swappable  segments  (STMBS, 
STMBT,  STMBU,  STMBV)  and  a control  executive  (NMPRX) . The  maximum  grid 
size  was  reduced  from  400X400  to  50X50  due  to  memory  limitations.  Subrou- 
tine STMBZ,  originally  written  in  IBM  360  assembly  language  whose  function 
is  to  maintain  a status  bit  array  representing  the  degree  of  grid  completion, 
was  rewritten  in  Hewlett-Packard  assembly  language.  The  basic  logic  of 
NMPRX  is  shown  in  Figure  8. 

Inputs  required  of  the  user  are  the  source  binary  X,  Y,  Z data  file 
name  and  the  destination  grid  file  name  (see  Appendix  D) . The  user  must 
also  specify  the  limits,  or  boundaries  of  the  grid  to  be  created  in  the 
form  of  minimum  X,  minimum  Y,  maximum  X,  and  maximum  Y.  If  all  of  these 
values  are  set  to  zero,  the  program  will  use  the  values  as  it  finds  them 
in  the  input  file.  The  user  also  specifies  the  desired  grid  cell  size  and 
the  maximum  scanning  radius  (in  number  of  all  sizes)  to  be  used  in  forming 
the  grid.  He  may  optionally  request  that  all  inputs  points  be  verified  to 
insure  the  validity  of  the  final  grid.  The  routine  then  creates  the  grid, 
making  use  of  a temporary  direct  access  file  called  $IWKFL,  and  stores  the 
final  grid  on  disc. 

Program  MAKFL 

A complete  description  of  the  function  of  MAKFL  can  be  found  in  the 
Stampede  Reference  Manual  ( 1 ) . The  Stampede  version  was  modified  somewhat 
to  facilitate  implementation  on  the  minicomputer  system.  The  basic  logic  of 
MAKFL  is  shown  in  Figure  9 . The  program  consists  of  an  executive,  or  father 
program,  MAKFL,  which  swaps  in  three  sons:  MKINP,  MKSRT,  MKOUT.  MKINP  de- 

termines the  ASCII  XYZ  file  name  and  reads  the  data;  MKSRT  sorts  the  data  on 
ascending  X with  dexcending  Y;  MKOUT  determines  the  binary  X,  Y,  Z data  file 
name  and  writes  the  data  to  that  file.  Data  file  formats  are  described  in 
Appendix  D. 
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User  Inputs: 

Source  File  Name 
Limits/Boundary 
Cell  Size 
Scanning  Radius 
Validation  Option 


Read  XYZ  File  (STMBS) 


First  Pass  (STMBT) 


Figure  8.-NMPRX  Logic 


Get  File  Name 

Input  ASC  II  X,  Y,  Z File 
(MKSNP) 

Sort  Data  Records 
(MKSRT) 

Store  Binary  Sorted 
Data  on  Disc 
(MKOUT) 


Figure  9.— MAKFL  Logic 


Program  GRDNT 


A complete  description  of  the  function  of  Stampede  program  GRIDINT 
can  be  found  in  the  STAMPEDE  Reference  Manual  (1).  The  program  was  modi- 
fied for  compatability  with  the  minicomputer  system  and  for  interactive 
user  inputs.  Figure  10  shows  GRDNT  logic.  Inputs  required  of  the  user 
are  the  grid  data  file  name  (see  Appendix  D) , the  new  grid  file  name,  and 
X and  Y limits  or  bounds  on  the  new  grid,  and  the  grid  interval.  The  pro- 
gram then  interpolates  values  from  the  output  grid  using  mesh  values  from 
the  original  grid.  The  new  grid  is  then  stored  on  disc. 


OPRAT  MODULE 

The  programs  and  subroutines  comprising  the  OPRAT  module  of  SEAMPLAN 
provides  the  user  with  a set  of  basic  mathematical  operations  that  can  be 
performed  on  grid  files.  These  operations  consist  of  addition,  subtrac- 
tion, multiplication  and  division. 

These  mathematical  operations  are  performed  on  the  corresponding  ele- 
vations of  two  or  three  grid  files  or  may  be  used  to  alter  each  elevation 
of  a single  grid  file  by  a specified  constant. 

Table  11  summarizes  the  program  segments,  associated  routines  and 
their  respective  functions  for  the  OPRAT  module. 


Table  11.  — OPRAT  Program  Segments 


NAME 

SUBROUTINES 

USE 

OPRAT 

STMMA,  STMMB , 
STMMD,  STMME, 
STMNA,  STMGB, 
STMXZ,  UPDAT 

STMMC, 
STMMF, 
STMYZ , 

Grid  fill  operations  program. 

Program  OPRAT 

A complete  description  of  the  function  of  the  Stampede  program  OPERATE 
can  be  found  in  the  Stampede  Reference  Manual  (1) • The  program  per- 
forms addition,  subtraction,  multiplication,  or  division  between  two  or 
three  grids  or  two  or  three  Z values  in  a binary  X,  Y,  Z file.  The  program 
can  also  perform  operations  on  Z values  with  user-specified  constants. 

These  operations  allow  for  the  creation  of  isopach,  stripping  ratio,  and 
similar  manipulated  data.  Data  files  are  described  in  detail  in  Appendix 
D,  and  the  logic  for  program  OPRAT  is  shown  in  Figure  11. 
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Get  Input  File  Name 

Get  Output  File  Name 

Determine  Bounds 
For  New  File 

Get  New  Grid  Interval 

Perform  Interpolation 

Output  New  File 


Figure  10.— GRDNT  Logic 


Get  File  Name(s) 


Read  Data 


Perform  Operation(s) 


Write  Data 


Figure  11. -OPR AT  Logic 


CSEDT  MODULE 


The  programs  and  subroutines  comprising  the  CSEDT  module  of  SEAMPLAN 
provides  the  user  with  a fairly  complete  set  of  editing  functions  to  be 
performed  on  grid  files. 

Through  the  use  of  this  module  the  user  is  able  to  step  through  a 
grid  file,  either  by  rows  or  columns,  and  verify  or  change  the  contents 
of  the  specified  grid  files.  All  of  the  displays  and  edits  are  shown 
on  the  Tektronix  4014  as  a cross-sectional  view. 


Table  12  summarizes  the  program  segments,  associated  routines  and 
their  function  for  the  CSEDT  module. 


Table  12.  — CSEDT  Program  Segments 


NAME 

SUBROUTINES 

USE 

CSEDT 

CODER 

Grids  edit  controls 

CSEIN 

Grid  file  input 

CSEDO 

CSDRW,  CODER 

Editing  and  displaying  of 

grid  file: 

CSEOT 

CODER,  UPDAT 

Final  processing  for  the 
MODULE 

CSEOT 

Program  CSEDT 

This  program  performs  initialization  and  executive  functions  for  two- 
dimensional  display  and  editing  of  uniform  grid  data.  Lack  of  space  made 
it  necessary  to  transform  real  data  values  to  integer  values  within  the 
program  since  integer  values  only  use  one  16-bit  word,  while  real  values 
use  two  16-bit  words. 

Initialization  of  windowing  variables  and  the  integer  matrix  takes 
place.  The  user  is  requested  to  specify  source  file  names.  Subroutine 
SPOLU  opens  these  files.  The  user  also  has  the  option  of  changing  the 
header  name  (JOBNAM) . 

The  vertical  elements  of  the  windowing  are  determined  by  the  minimum 
and  maximum  Z values  in  the  source  files.  This  windowing  is  adjusted  to 
allow  during  editing,  addition  of  up  to  10%  to  the  minimum  and  maximum  Z 
and  maximum  X values  or  minimum  and  maximum  Y values  depending  upon 
whether  rows  or  columns  are  to  be  displayed. 
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The  real  data  values  are  transformed  by  subtracting  the  minimum  Z value 
from  each  data  point,  and  then  seating  the  resulting  values,  and  placing 
them  in  an  integer  matrix  (MATZ) . The  COMMON  block  is  written  to  a disc 
track  and  the  source  files  are  closed.  CSEDT  then  schedules  programs  CSEDD 
and  CSEDT.  The  COMMON  block  is  defined  in  Appendix  C,  and  the  logic  is 
summarized  in  Figure  12, 

Program  CSEDO 

CSEDO  is  the  primary  functional  program  in  the  CSEDT  module.  Figure  13 
summarizes  the  basic  logic.  The  COMMON  block  must  be  read  from  disc  storage. 
The  row(s)  or  column(s)  to  be  displayed  are  transformed  from  integer  format 
back  to  their  original  real  values  in  subroutine  CODER. 

Program  CSDRW  displays  and  edits  the  cross-section,  which  uses 
cross-hair  cursors  to  edit.  The  following  is  a list  of  edit  options 
and  their  effects. 

D - The  numeric  value  of  a point  on  a displayed  surface  is  dis- 
played, indicated  by  the  position  of  the  cursors. 

C - A point  on  a displayed  surface  is  changed  to  a value  indicated 
by  the  position  of  the  cursors.  The  new  point  is  marked  by 
a cross  (+)  on  the  screen,  and  its  numeric  value  is  also 
displayed . 

P - A plotter  copy  of  the  section  is  produced. 

J - The  data  values  for  the  currently  displayed  cross-section 

are  transformed  back  to  integer  values.  The  user  specifies 
a new  row  or  column,  and  the  new  cross-section  is  transformed 
to  real  values  and  displayed. 

T - Control  is  transferred  back  to  CSEDT,  and  segment  3,  CSEOT, 
is  swapped  in.  Destination  files  will  be  created  in  CSEDT. 

A - Control  is  transferred  back  to  CSEDT,  and  segment  3,  CSEOT, 
is  swapped  in.  No  new  files  will  be  created. 

When  editing  has  been  completed  the  COMMON  block  must  be  written  to 
the  storage  disc,  and  segment  3,  CSEOT,  will  be  swapped  in.  The  COMMON 
block  is  the  same  as  that  described  for  CSEDT  (see  Appendix  C) . 

Program  CSDRW 

Program  CSDRW  is  swapped  in  by  CSEDO  to  draw  cross-sections  on  the 
CRT  or  plotter.  Its  logic  is  shown  in  Figure  14 . Since  it  may  be  ac- 
cessed many  times  during  a cross-section  display  and  edit  session,  COMMON 
is  not  written  to  a disc  track,  rather  it  is  passed  through  system  available 
memory.  For  this  same  reason,  the  program  terminates  using  the  Hewlett- 
Packard  RTE  III  serial  reusable  termination:  CALL  EXEC  (6, 0,-1)  (2), 
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Initialize 


Open  Grid  Data  File(s) 
Modify  Data  File  Headers 


Set  Windows 

Read  and  Transform  Data 


Swap  Drawing  and  Output  Modules 


Figure  12.-CSEDT  Logic 


initialize 


Transform  integer  Data  to  Real 
Draw  Section 

Case  of  user  cursor  option: 


D:  Display  Point  Value 


C:  Change  Point  Value 


R:  Redraw  the  Section 


P:  Draw  Section  on  Plotter 


J:  Jump  to  New  Row  or  Column 


T:  Terminate,  Save  Grid 


A:  Abort,  No  New  Grid 


End  Case 


Return  to  CSEDT 


Figure  13.— CSEDO  Logic. 


Figure  14.-CSDR W Logic 


This  prevents  the  program  from  being  swapped  from  the  disc  on  subsequent 
executions.  These  two  methods  result  in  a great  savings  in  run  time,  due 
to  reduced  disc  I/O  requirements. 

After  retrieving  COMMON,  the  program  checks  for  screen  or  plotter 
display  by  examining  the  COMMON  variable  SIZE.  (If  SIZE  = 0,  a screen 
is  desired.)  If  a plotter  copy  is  desired,  the  terminal  status  is  saved 
prior  to  the  plot  and  restored  after  it  is  complete. 

The  horizontal  and  vertical  axes  are  drawn  and  scaled  first,  and  then 
the  cross-section  is  drawn.  If  any  data  point  is  surrounded  by  null 
points,  the  data  point  is  marked  by  an  X.  User  instructions  are  displayed 
below  the  cross-sectional  display  if  the  display  is  on  the  screen. 

COMMON  is  written  back  to  system  available  memory  prior  to  termination 

Program  CSEOT 

CSEOT  handles  final  processing  for  the  CSEDT  module.  Its  logic  is 
shown  in  Figure  15.  The  COMMON  block  is  read  from  disc  storage.  If  the 
user  specified  edit  command  A (abort  end),  no  processing  is  done  in  CSEOT, 
and  control  is  returned  to  the  main  program,  CSEDT. 

If  the  user  specified  edit  command  T (termination),  the  destination 
files  will  be  used.  The  last  cross-section  to  be  displayed  must  be  trans- 
formed back  to  integer  form.  Destination  files  to  hold  the  edited  data 
are  created  and  opened.  For  each  destination  file  a header  record  must 
be  written,  each  row  is  transformed  back  to  real  values,  the  start,  end, 
and  data  values  for  each  row  are  written  as  a record,  and  a terminal  re- 
cord is  written.  The  destination  files  are  then  closed.  If  the  minimum 
and/or  maximum  Z values  have  changed  for  any  file  during  the  editing  pro- 
cess, the  header  record  of  the  destination  file  must  be  changed.  This 
is  done  by  the  subroutine  UPDAT.  Control  is  then  transferred  back  to 
CSEDT.  The  disc  tracks  used  for  the  COMMON  block  are  de-allocated , and 
the  program  ends. 

Subroutine  CODER 


Subroutine  CODER  is  accessed  by  CSEDT,  CSEDO,  and  CSEOT  to  transform 
real  values  to  integer  values,  and  vice  versa.  When  it  is  being  used  the 
first  time  in  CSEDT,  and  the  last  time  in  CSEOT,  it  also  scales  the  values 
based  on  minimum  and  maximum  Z values. 

The  subroutine  arguments  are  as  follows: 

KODE:  Indicates  mode  of  conversion 

1.  real  to  integer 

2.  integer  to  real. 

IDIR:  Indicates  direction 

1.  transform  rows 

2.  transform  columns 

3.  transforms  entire  grid. 


Figure  15.— CSEOT  Logic 


Branching  occurs  upon  entry  to  the  subroutine  and  the  appropriate 
transformations  take  place. 

Subroutine  UPDAT 

Subroutine  UPDAT  reads  the  header  record  of  a grid  data  file  (see 
Appendix  C)  and  modifies  the  ZM1N  and  ZMAX  values  in  such  a way  that  an 
end  of  file  is  not  written  after  the  record  is  rewritten. 

The  subroutine  arguments  include  a three-word  integer  array  contain- 
ing the  file  name,  followed  by  the  new  (real)  values  for  ZMIN  and  ZMAX. 

The  specified  file  is  forced  open  as  a Hewlett-Packard  type  1 file 
in  update  mode.  The  sector  containing  the  header  record  is  read,  the  Z 
values  are  modified,  and  the  sector  is  rewritten.  The  file  is  closed 
and  control  returns  to  the  calling  program. 

CS3DD  MODULE 


The  programs  and  subroutines  comprising  the  CS3DD  module  provide 
the  SEAMPLAN  user  with  the  ability  to  examine  small  sections  of  a grid 
file  with  three  dimensional  displays.  These  displays  effectively  allow 
the  user  to  get  a good  feel  for  the  lay  of  a small  portion  of  the  land 
to  help  him  design  his  mine  and/or  reclaim  the  land  after  mining. 

Table  13  summarizes  the  program  segments,  associated  routines  and 
their  function  for  the  CS3DD  module. 


Table  13.  — CS3DD  Program  Segments 


NAME 

SUBROUTINE 

USE 

CS3DD 

RDGRD,  PLT3D,  FRAM1 

3-d  displays 

Program  CS3DD 

CS3DD  simultaneously  displays  a user-specified  number  (1-5)  or  rows 
or  columns  of  a single  grid  file  in  three-dimensional  cross-section  format. 
The  basic  logic  for  CS3DD  is  given  by  Figure  16.  Following  initialization 
of  various  local  variables,  the  user  must  specify  the  grid  data  file  name. 
After  reading  the  grid  data,  the  maximum  possible  display  size  is  computed 
based  on  the  grid  size  so  that  the  appropriate  scale  factors  are  used  to 
insure  the  display  fits  on  the  screen.  The  user  then  must  specify  the  di- 
rection of  desired  display  (rows  or  columns),  the  starting  section  index, 
and  the  number  of  sections  to  be  drawn. 
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initialize 


Get  Grid  File  Name,  Read  Data 

Until  User  Terminates 

Display  Rows  or  Columns  s' 

Rows 

s'  Columns 

Display  Specified 
# of  Rows 

Display  Specified 
# of  Columns 

Figures  16.— CS3DD  Logic 


The  cross-sections  will  be  rotated  -25°  about  the  Y axis,  while  col- 
umns will  be  rotated  -65°  about  the  X axis  with  rows  displayed  toward  the 
left  side  of  the  screen,  and  columns  toward  the  right  side  of  the  screen. 

To  correctly  place  the  cross-sections  on  the  screen,  two  factors,  ADDX  and 
ADDY,  are  added  to  each  data  point  before  it  is  displayed.  The  values  for 
these  factors  are  determined  by  transforming  the  corner  points  of  the  dis- 
play as  will  be  done  in  the  3-dimensional  display  routine,  and  then  calcu- 
late ADDX  and  ADDY,  which  will  place  the  transformed  points  where  desired 
on  the  screen.  After  these  factors  have  been  calculated  a buffer  is  filled 
with  the  row  or  column  to  be  drawn.  The  cross-section  is  then  drawn  by  the 
subroutine  PLT3D  and  framed  by  the  subroutine  FRAMl.  Documentation  for  sub 
routine  PLT3D  can  be  found  with  program  TRD . The  user  is  then  given  the 
option  to  draw  more  cross-sections  or  terminate.  Upon  termination,  control 
is  returned  to  DRVED,  the  scheduling  program. 

Subroutine  RDGRD 


Subroutine  RDGRD  reads  grid  data  files  and  stores  the  data  in  COMMON. 
Figure  17  summarizes  RDGRD' s logic.  The  file  name  is  contained  in  COMMON. 
If  an  open  or  header  access  results  in  an  error,  the  single  argument  IER  is 
set  negative  and  the  routine  returns  to  the  calling  program.  If  a grid 
file  is  successfully  opened,  the  contents  are  read  and  stored  in  COMMON 
prior  to  a return. 

Subroutine  FRAMl 

Subroutine  FRAMl  draws  a frame  below  each  3-dimensional  cross-section 
display  produced  by  CS3DD.  The  subroutine  has  two  arguments,  VERTEX  and 
ADDY.  VERTEX  is  a 16-word  real  array  which  contains  the  coordinates  of 
vertices  of  3-dimensional  displays.  VERTEX  is  maintained  by  subroutine 
PLT3D  and  is  updated  as  each  sectional  line  is  drawn.  ADDY  is  the  real 
off-set  value  calculated  in  CS3DD  which  positions  the  display  on  the 
screen.  Subroutine  FRAMl  modifies  some  VERTEX  using  ADDY,  then  produces 
the  frame  underneath  the  section.  No  COMMON  blocks  are  used. 


TOPO  MODULE 


The  programs  and  subroutines  comprising  the  TOPO  module  provide  the 
user  of  SEAMPLAN  with  a contour  display  of  an  area  of  interest. 

The  contour  displays  are  generated  from  the  grid  files  and  are  dis- 
played on  the  Tektronix  4014.  The  contour  maps  are  useful  in  determining 
a mine  area  and  a mine  plan.  These  displays  are  also  useful  in  the  re- 
clamation phase  of  SEAMPLAN,  as  they  show  the  user  the  actual  contour  of 
the  land  before  the  mining  process  began. 

Table  14  summarizes  the  program  segments,  associated  routines  and 
their  function  in  the  TOPO  module. 
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Figure  17.-RDGRD  Logic 


Table  14 . — TOPO  Program  Segments 


NAME 

SUBROUTINES 

USE 

TOPO 

LINEF,  BOX,  ZOOM 

Produces  the  actual  contour  dis- 
plays 

CNTRG 

BOX,  PLTCN 

Set  up  routine 

GRDIN 

Reads  the  grid  file 

Program  TOPO 

Program  TOPO  is  scheduled  by  the  Data  Entry  and  Review  executive, 
DENRV,  and  the  pit  layout  routine,  PTOPO,  for  the  purpose  of  producing 
contour  displays  of  a gridded  data.  Its  logic  is  given  in  Figure  18  . 

The  program  first  initializes  variables  for  a screen  display  and  optionally 
(depending  on  the  value  of  ICODE)  allocates  a disc  track  for  program  swap- 
ping. The  user  must  then  optionally  specify  a grid  data  file  name  which 
is  read  by  program  GRDIN,  which  is  swapped  at  this  point.  The  contour  in- 
terval for  the  display  is  then  requested  from  the  user.  The  screen  and 
virtual  windows  are  set,  first  based  on  the  indices  of  the  entire  grid,  but 
later  based  on  the  reduced  area  indices  as  set  by  subroutine  ZOOM.  The 
header  is  then  produced  and  the  contours  are  drawn  by  virtue  of  a swap  of 
program  CNTRG.  Upon  completion  of  the  display,  the  user  may  request  a 
plotter  reproduction.  If  he  does,  the  screen  status  is  saved  and  the  plot- 
ter software  is  initialized.  A branch  to  reset  the  windows  takes  place, 
and  the  plotter  copy  is  generated.  The  user  may  request  a new  contour  in- 
terval and  if  he  does,  the  new  display  is  produced  on  the  screen.  He  may 
also  choose  to  zoom  in  on  a portion  of  the  current  display. 

Subroutine  ZOOM  utilizes  the  crosshair  cursors  to  establish  new  bounds 
for  the  display,  which  will  be  enlarged  to  fill  the  screen  and  drawn  after 
a new  (or  the  same)  contour  interval  is  requested.  The  following  variable 
is  appended  to  the  standard  grid  file  COMMON  block  (see  Appendices  C,  D) : 

CINT  - the  Contour  interval  for  the  display. 
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Figure  18.— TOPO  Logic 


Subroutine  BOX 


Subroutine  BOX  draws  a rectangle  around  the  area  whose  vertices  are 
the  arguments  of  the  subroutine  using  the  current  virtual  window  defini- 
tion. It  is  called  with  four  real  arguments,  defined  as  follows: 

XMIN  - X coordinate  of  lower  left  vertex 

YMIN  - Y coordinate  of  lower  left  vertex 

XMAX  - X coordinate  of  upper  right  vertex 

YMAX  - Y coordinate  of  upper  right  vertex. 

Subroutine  ZOOM 


Subroutine  ZOOM,  called  by  programs  TOPO  and  PTOPO,  uses  the  cross- 
hair cursors  on  a contour  display  to  describe  a subarea  to  be  redrawn  and 
enlarged.  The  basic  logic  is  shown  in  Figure  19.  The  subroutine  requests 
the  minimum  (lower  left)  corner  and  uses  the  cursor  to  input  the  location. 
This  location  is  then  adjusted  to  the  index  of  the  nearest  grid  point  which 
will  be  inside  the  cursor  input  location.  This  procedure  is  repeated  for 
the  maximum  (upper  right)  corner.  The  two  corner  points  thus  computed  are 
then  checked  to  insure  that  they  are  within  the  range  of  the  current  dis- 
play. A call  to  subroutine  OUTLN  is  used  to  outline  the  new  area  prior  to 
the  return  to  the  calling  program.  The  COMMON  block  used  by  ZOOM  is  the 
same  as  that  of  the  calling  program,  (see  Appendix  C)  whether  that  be  TOPO 
or  PTOPO. 


Program  CNTRG 

CNTRG  performs  all  the  setup  functions  which  are  required  by  the  grid 
contouring  subroutine.  Its  logic  is  given  in  Figure  20 . COMMON  from 
the  disc,  the  display  logical  unit  is  recovered  to  allow  plots  to  be  pro- 
duced on  either  the  CRT  or  the  plotter.  The  current  minimum  and  maximum 
grid  subscripts  from  the  COMMON  block  are  used  to  frame  and  label  the  dis- 
play using  the  current  virtual  window  definition.  After  determining  whe- 
ther or  not  the  contour  interval  is  integral,  an  appropriate  integer  or 
real  format  is  constructed  as  required  by  the  contouring  subroutine,  which 
is  then  called. 

This  routine  moves  through  the  grid  cells  examining  four  adjacent 
grid  points  at  a time  to  perform  the  necessary  interpolation  to  draw  the 
isoline  for  that  grid  cell.  Each  elevation  is  labeled  only  once  for  each 
twelve  units  of  grid  cell  in  the  X direction.  Information  on  which  lines 
have  been  labeled  is  maintained  in  the  local  integer  vector  LEVEL.  The 
program  terminates  after  the  contours  are  drawn  and  labeled. 

The  program  uses  the  standard  grid  COMMON  block  (see  Appendix  C)  with 
the  addition  of  a single  real  variable: 

CINT  - The  current  contour  interval  selected  by  the  user  in 
the  calling  program. 
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Write  Directions,  Cursor  Input  Lower  Left 
Write  Directions,  Cursor  Input  Upper  Right 
If  New  Corners  Outside  Range,  Reset  to  Old  Corners 
Outline  Area;  Return 


Figure  19.— ZOOM  Logic 


Retrieve  COMMON  From  Disc 


Get  LU  For  Plotter  or  Terminal 


Draw  and  Label  Frame 
Construct  Formats  for  Contours 


Call  Contouring  Routine 


Terminate 


Figure  20.— CNTRG  Logic 


Subroutine  PLTCN 


Subroutine  PLTCN  is  called  by  program  CNTRG  with  the  following  arguments 

NC  - number  of  grid  rows 
ND  - number  of  grid  columns 

GRID  - 2-dimensional  matrix  (NC  X ND)  containing  Z values 

ZMIN  - minimum  Z value  in  the  grid 

ZMAX  - maximum  Z value  in  the  grid 

CINT  - contour  interval 

MINX  - minimum  column  subscript 

MAXX  - maximum  column  subscript 

MINY  - minimum  row  subscript 

MAXY  - maximum  row  subscript 

IFMT  - array  containing  format  for  contour  labels  (dimensioned 
in  calling  program) 

LSZ  - number  of  characters  produced  by  the  format  in  IFMT. 

PLTCN's  logic  is  summarized  in  Figure  21.  While  NC  and  ND  are  the 
dimensions  of  GRID  as  declared  in  the  calling  program,  MINX,  MAXX,  MINY  and 
MAXY  define  a subset  of  the  grid  to  be  displayed.  A twenty-five  element 
local  array  is  maintained  to  insure  that  a contour  line  is  only  labeled  once. 
This  array  is  initilized  upon  entry  to  the  routine  and  is  updated  each  time 

a label  is  printed.  The  number  of  label  characters  (LSZ)  is  multiplied  by 

the  negative  character  width  and  is  subsequently  used  to  insure  that  all 
labels  fall  within  the  boundaries  of  the  display  frame. 

A scan  of  the  entire  grid  is  performed  prior  to  producing  the  display 
and  those  grid  cells  containing  missing  data  are  outlined.  The  grid  is 
then  scanned  within  the  limits  of  the  calling  arguments,  and  the  four  cor- 
ner points  of  each  cell  are  examined  and  used  as  the  basis  of  interpola- 
tion to  determine  if  the  first  contour  line  is  to  be  drawn  in  the  cell. 

The  contour  interval  is  then  increment  and  the  process  repeats  itself 
throughout  the  entire  grid. 

The  routine  receives  all  information  required  from  the  arguments  and 
as  such,  the  only  COMMON  required  by  the  routine  is  Tektronix  COMMON 
(see  Appendix  C) . 

TRD  MODULE 

The  programs  and  subroutines  comprising  the  TRD  module  of  SEAMPLAN 
provide  the  user  with  three-dimensional  displays  of  grid  files.  These 
routines  were  adapted  to  the  M.S.U.  installation  from  the  three-dimen- 
sional package  in  the  Journals  of  the  ACM. 

The  TRD  module  provides  the  user  with  the  ability  to  view  three- 
dimensional  displays  of  grid  files  from  different  positions  on  the 
Tektronix  4014.  These  displays  provide  the  user  with  an  excellent  feel 
for  the  lay  of  the  land  since  he  is  able  to  view  the  area  he  is  working 
with  from  different  angles  of  rotation  and  horizontal  angles. 
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initialize: 

Display  Logical  Unit 
Labeling  Parameters 

Outline  Areas  of  Missing  Grid  Data 

For  Range  of  X indices 

For  Range  of  Y indices 

For  all  Possible  Contour 
intervals: 


interpolate  to  Draw 
Contours 


Figure  21,— PLTCN  Logic 


Table  15  summarizes  the  program  segments,  associated  routines  and 
their  respective  functions  in  the  TRD  module. 


Table  15.  — TRD  Program  Segments 


NAME  SUBROUTINES 


USE 


TRD  FILBF,  PLT3D,  FRAMR  Actual  3-D  grid  displays 

GRDIN  - Grid  file  input 

STUP3  - Initialization 


Program  TRD 

Program  TRD  is  swapped  by  the  Data  Entry  and  Review  executive  (DENRV) . 
Its  logic  is  shown  in  Figure  22.  No  COMMON  is  read,  but  initialization 
takes  place  as  follows:  the  terminal  control  system  is  initialized,  ID 

segments  for  the  son  programs  are  replaced  and  setup  is  performed  for  swap- 
ping. The  name  of  the  grid  file  to  be  displayed  is  determined,  and  the  grid 
data  is  read  by  program  GRDIN.  The  X and  Y scales  for  the  displays  (XS  and 
YS)  are  then  calculated  based  on  the  distance  between  grid  corner  points. 
These  values  are  used  to  insure  that  all  subsequent  three  dimensional  dis- 
plays are  positioned  correctly  on  the  screen.  It  should  be  noted  that  the 
three  dimensional  coordinate  system  used  by  TRD  and  its  subroutines  and  son 
programs  is  not  the  typical  right-handed  coordinate  system  generally  refer- 
red to  in  the  report. 

The  X axis  is  the  horizontal  screen  axis,  the  Y axis  is  the  vertical 
screen  axis,  and  the  X axis  is  the  axis  pointing  to  the  user  perpendicular 
to  the  screen.  This  is  the  convention  of  subroutine  PLT3D  arid  was  adopted 
throughout  the  module.  The  code  in  the  remainder  of  the  program  may  be  exe- 
cuted more  than  once,  depending  on  the  number  and  type  of  displays  the  user 
wishes  to  view.  The  viewing  position  parameters  are  then  requested  from 
the  user  for  each  display.  Due  to  memory  limitations,  these  parameters  are 
retrieved  by  program  STUP3,  which  is  swapped  at  this  point  in  the  program. 
The  display  is  then  produced.  The  header  containing  the  grid  file  informa- 
tion and  viewing  position  parameters  is  written.  The  values  of  arguments 
for  subroutine  PLT3D  are  assigned.  Then  for  each  line  drawn  in  each  di- 
rection subroutine  FILBUF  is  called  to  fill  the  buffer  (OUTBUF)  with  grid 
data  points  and  subroutine  PLT3D  is  called  to  plot  the  line.  When  all  rows 
and  columns  are  drawn,  subroutine  FRAMR  draws  a frame  or  box  around  the  dis- 
play using  the  vertices  as  corner  points.  The  user  may  then  request  a plot- 
ter copy,  redraw  with  hidden  lines  removed,  change  viewing  position  para- 
meters, or  terminate.  Prior  to  termination  ID  segments  and  disc  tracks 
used  for  swapping  are  released. 


31 


Initialize 

Get  Grid  File  Name,  Read  Data 

Repeat  Until  User  Terminates: 

Get  Viewing  Parameters  (STUP3) 

Write  Heading 

Do  For  # of  Lines 

Fill  Buffer  (FSLBF) 

Transform  & Draw  Line  (PLT3D) 

Draw  Frame 

Allow  Plotter  Copy 

Figure  22.— TRD  Logic 


The  COMMON  block  used  by  program  TRD  is  the  standard  grid  file 
COMMON  block  (see  Appendix  C)  with  the  following  variables  appended: 


PHI  - 
THETA  - 
ADDX  - 

ADDY  - 

FACTOR  - 


IHIDE  - 


INDEX  - 
I QUAD  - 


NPNTS  - 
OUTHTA  - 
OUTPHI  - 
XS  - 
YS  - 
XSCALE  - 
Y SCALE  - 
ZSCALE  - 


rotation  component  about  vertical  axis. 

rotation  component  about  horizonatal  axis. 

component  to  be  added  to  each  X value  prior  to  display  to 
insure  horizontal  screen  position  of  display. 

component  to  be  added  to  each  Y value  prior  to  display  to 
insure  vertical  screen  position  of  display. 

value  each  point  is  multiplied  by  prior  to  display  to 
emphasize  relief  (FACT0R>1)  or  to  minimize  relief 
(FACTORcl) . 

hidden  line  flag: 

0:  draw  all  lines 

1:  remove  hidden  lines 

number  of  point  values  placed  in  the  buffer  for  the  display 
of  each  line. 

the  viewing  position  quadrant  based  on  PHI: 

1:  0 < PHI  < 90 

2:  90  < PHI  < 180 

3:  180  < PHI  < 270 

4:  270  < PHI  < 360 

the  number  of  points  in  the  current  row  or  column  of  the  grid. 

the  user  input  value  of  THETA 

the  user  input  value  of  PHI 

the  permanent  value  of  the  X scale 

the  permanent  value  of  the  Y scale 

set  to  +XS,  depending  on  viewing  position 

set  to  +YS,  depending  on  viewing  position 

the  Z scale  value,  set  according  to  plot  direction. 


Upon  entry  to  the  routine,  branching  occurs  based  on  argument  ITIME  and 
COMMON  variable  IQUAD,  the  viewing  position  quadrant-  Then  the  buffer  OUTBUF 
is  filled  with  a grid  row  or  column  in  either  ascending  or  descending  order. 
The  order  may  change  since  all  user-input -viewing -position-'angles  are  resolved 
to  be  less  than  90°;  thus,  the  order  in  which  the  buffer  is  filled  allows  the 
display  of  a grid  from  the  "back  side."  In  addition  to  the  three  arguments, 
the  entire  TRD  COMMON  block  is  included  (see  Appendix  C,  TRD  description). 
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Subroutine  FILBF 


Subroutine  FILBF  is  called  by  program  TRD  with  the  following  arguments: 
OUTBUT  - the  buffer,  or  vector,  to  be  filled. 

NLINE  - the  line  index  (row  or  column)  of  the  grid  to  be  accessed. 
ITIME  - the  time  (first  or  second  direction)  the  routine  is  called. 

Subroutine  PLT3D 


Subroutine  PLT3D  is  a modified  version  of  subroutine  PL0T3D,  obtained 
from  the  Collected  Algorithms  of  CACM.  The  basic  logic  is  shown  in  Figure 
23.  For  convenience,  portions  of  the  documentation  for  this  subroutine 
are  reproduced  here: 

PLT3D  will  accept  three-dimensional  data  in  various  forms,  rotate 
it  in  three-space,  and  plot  the  projection  of  the  resulting  figure  onto 
the  X,  Y plane.  Those  lines  or  portions  of  lines  which  should  be  hidden 
by  previous  lines  are  masked. 

Each  call  to  PLT3D  causes  one  line  to  be  plotted.  A line  consists 
of  a sequence  of  points  in  three-space  which  will  be  connected  using  li- 
near interpolation  between  adjacent  points.  This  sequence  of  points  is 
sepcified  by  three  sequences  of  real  numbers,  the  X,  Y,  and  Z components 
of  each  point.  Each  of  these  sequences  of  real  numbers  can  be  specified 
either  as  being  equally  spaced,  and  therefore  denoted  by  an  initial  value 
and  an  increment,  or  as  being  contained  in  a real  array.  There  is  no  re- 
striction that  any  of  the  three  component  sequences  be  either  increasing  or 
decreasing,  and  the  number  of  points  may  change  between  successive  calls. 

The  masking  technique  used  by  PLT3D  is  based  on  two  premises:  (1) 
lines  in  the  foreground  (positive  Z direction)  are  plotted  before  lines 
in  the  background;  and  (2)  a line  or  portion  of  a line  is  masked  (hidden) 
if  it  lies  within  the  region  bounded  by  previously  plotted  lines.  Masking 
is  then  achieved  by  maintaining  a visible  maximum  function  and  a visible 
minimum  function.  Those  portions  of  each  line  falling  within  the  region 
bounded  by  these  functions  are  considered  to  be  hidden.  Any  line  which 
exceeds  user  specified  limits  is  truncated  without  the  loss  of  the  plotter 
origin.  A call  to  PLT3D  before  initiating  a new  figure  can  be  used  to 
simulate  a line  drawn  at  the  bottom  of  the  paper;  therefore,  only  those 
portions  of  each  line  lying  above  all  previous  lines  will  be  drawn. 

The  data  are  transformed  by  a three-dimensional  rotation  determined 
by  two  user  specified  angles.  PLT3D  assumes  a right  hand  coordinate  sys- 
tem with  X running  the  length  of  the  paper,  Y running  across  the  width, 
and  Z coming  out  of  it.  The  figure  is  first  rotated  by  an  angle  of  9 de- 
grees clockwise  about  the  X-axis.  The  resultant  figure  is  then  rotated 
by  an  angle  of  0 degrees  about  its  Y-axis.  The  plotted  figure  is  the  pro- 
jection of  this  final  figure  onto  the  X-Y  plane.  Figure  1 demonstrates 
rotations  about  the  vertical  or  Y-axis,  and  Figure  2 demonstrates  rotations 
about  the  horizontal  or  X-axis.  Warning:  Some  rotations  will  alter  the 

foreground/background  relationships  between  the  lines,  and  thus  the  order 
in  which  they  should  be  plotted  to  avoid  violating  the  first  masking  premise. 
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Figure  23.— PLT3D  Logic 
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As  an  option,  the  coordinates  of  the  vertices  of  the  figure  and  the 
projection  of  these  vertices  onto  the  Y=0  plane  of  the  figure  will  be  re- 
turned in  a user  supplied  array.  This  information  can  then  be  used  to 
put  a frame  on  the  figure,  as  is  done  in  the  example  program,  or  to  con- 
nect the  endpoints  of  each  line,  or  to  plot  axes,  etc. 

Crosshatched  figures  are  easily  obtained  as  is  demonstrated  by  the 
example  program.  Some  perspective  can  be  achieved  by  modifying  the  data 
scaling  parameters  between  successive  calls.  PLT3D  attempts  to  minimize 
plotter  movement  by  beginning  at  the  alternate  end  of  successive  lines. 

The  input  parameters  for  PLT3D  are  as  follows: 

(IVXYZ)  is  a four  digit  decimal  integer  which  is  used  to  select 
various  input/output  options.  These  digits,  in  decreasing  order 
of  magnitude,  will  be  referred  to  as  V,  X,  Y,  and  Z. 

IF  V .NE.  0,  the  vertices  of  the  current  figure  and  their  projec- 
tion onto  the  Y=0  plane,  will  be  stored  in  a 16  entry  real  array 
(VERTEX),  and  will  be  updated  as  each  line  is  plotted.  These  coor- 
dinates are  in  inches  and  relative  to  the  current  plotted  origin. 

The  X,  Y pairs  are  ordered  so  that  the  first  pair  correspond  to 
the  last  point  of  the  first  line,  and  the  following  pairs  are  or- 
dered in  a circular  fashion.  The  pairs  on  the  Y =0  plane  of  the 
figure,  then  follow  in  the  same  order.  If  V=0,  the  vertex  para- 
meter is  ignored,  but  should  not  be  deleted. 


If  X=0,  the  X-components  of  this  line  are  assumed  to  be  equally 
spaced,  and  are  computed  by 

X(I)  + XDATA  + (I  -1)  * XSCALE 

Where  (XSCALE)  is  a scale  factor. 

The  same  relations  hold  for  the  Y-components , that  is,  if  Y=0 

Y ( I)  = YDATA  + (I  - 1)  * YSCALE 

and  if  Y .NE.  0 

Y(I)  + YDATA(I)  * YSCALE 

If  Z=0,  the  Z-components  of  this  line  are  all  assumed  to  be 
equal,  and  are  computed  by 

Z(I)  = ZDATA  + (NLINE  - 1)  * ZSCALE 

where  (NLINE)  is  some  integer  associated  with  this  line.  If  Z .NE.  0, 
again  we  have 

Z(I)  = ZDATA(I)  * ZSCALE 
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When  (NLINE)  is  equal  to  one,  it  indicates  the  beginning  of  a 
new  figure.  A call  to  PL0T3D  with  (NLINE)  equal  to  zero  before  ini- 
tiating a new  figure  simulates  a line  drawn  at  the  bottom  of  the  page. 
Therefore  only  those  portions  of  a line  lying  above  all  previous  lines 
will  be  plotted.  All  other  parameters  are  ignored  on  such  a call. 

(NPNTS)  is  the  number  of  points  on  this  line,  and  may  be  altered 
from  line  to  line. 

(PHI)  and  (THETA)  are  the  two  angles  (in  degrees)  used  to  specify 
the  desired  3-dimension  rotation.  The  following  two  definitions  of 
these  rotations  are  equivalent  - in  terms  of  rotations  of  axes,  the 
initial  system  of  axes,  X,  Y,  Z,  is  rotated  by  an  angle  (PHI)  counter- 
clockwise about  the  Y-axis,  and  the  resultant  system  is  labeled  the 
TUV  axes.  The  TUV  axes  are  then  rotated  by  an  angle  (THETA)  counter- 
clockwise about  the  T-axis,  and  this  final  system  is  labeled  the  PQR 
axis.  The  plotted  figure  is  the  projection  of  the  original  figure 
onto  the  PQ-plane.  In  terms  of  rotations  of  coordinates,  the  figure 
is  first  rotated  by  an  angle  (THETA)  clockwise  about  the  X-axis.  The 
resultant  figure  is  then  rotated  by  an  angle  (PHI)  clockwise  about 
its  Y-axis.  The  plotted  figure  is  the  projection  of  this  final  figure 
onto  the  X,Y  plane.  Warning,  some  rotations  will  alter  the  foreground/ 
background  relationships  between  the  lines,  and  thus  the  order  in  which 
they  should  be  plotted. 

(XREF)  and  (YREF)  are  the  coordinates,  in  inches,  relative  to 
the  plotter  origin.  To  be  used  as  the  origin  of  the  figure. 

(XLENTH)  is  the  length,  in  inches,  to  which  the  plot  is 
restricted.  Any  point  which  exceeds  this  limit,  or  the  limits 
of  the  paper  in  the  Y direction  (NYPI) , will  be  set  to  that  limit. 

(MASK)  is  an  integer  array  of  2*XLENTH*PIPI  entries  which 
is  used  to  store  the  MASK.  The  contents  of  this  array  should 
not  be  altered  during  the  plotting  of  any  given  figure. 

All  parameters  except  (MASK)  and  (VERTEX)  are  returned  unchanged. 

Between  any  two  calls  for  the  same  figure,  any  parameter  can 
be  meaningfully  changed  except  (XLENTH),  (MASK),  and  (VERTEX). 

Several  modifications  were  made  to  this  subroutine  for  implementation 
in  SEAMPLAN.  Tektronix  PLOT-10  TCS  subroutines  MOVAB  and  DRWAB  were  used 
to  produce  the  displays,  and  so  XLENTH,  described  above,  has  been  replaced 
with  LENPLT . Whereas  XLENTH  was  the  plot  size  in  inches  used  to  calculate 
the  required  dimension  of  MASK,  LENPLT  is  the  actual  dimension  which  should 
be  equal  to  the  maximum  number  of  screen  roster  units  for  the  display.  An- 
other modification  is  the  addition  of  the  argument  IHIDE,  which  if  not  equal 
to  zero,  is  used  internally  to  override  the  incremental  display  mode  with 
checking  for  moves  if  hidden  and  draws  override.  If  IHIDE+0,  the  routine 
always  draws  from  one  point  to  the  next  at  an  increase  in  display  generation 
speed,  but  with  a possible  loss  of  display  quality  for  some  drawings. 
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- - 


Subroutine  FRAMR 


Subroutine  FRAMR  is  a modified  version  of  subroutine  FRAMER  provided 
with  subroutine  PL0T3D,  obtained  from  the  Collected  Algorithms  of  CACM. 
The  original  documentation  of  subroutine  FRAMER  is  reproduced  here: 

FRAMR  is  a routine  to  plot  a frame  on  the  projection  of  a 3-dimen- 
sional figure  as  drawn  by  PL0T3D. 

IHCOR  - Number  of  the  Vertex  of  the  figure  which  appears  to 
be  furthest  in  the  background  (minus  Z direction) . 

VERTEX  - Array  containing  the  coordinates  of  the  vertices  of 

this  figure  as  returned  from  PL0T3D  on  the  last  call. 

MASK  - Array  containing  the  mask  for  this  figure  as  returned 
by  PL0T3D  on  the  last  call. 

The  vertices  of  the  frame  are  numbered  (1-4)  in  the  same  order  as 
their  coordinates  appear  in  VERTEX.  The  MASK  array  is  altered  by  this 
routine.  But  the  plotter  origin  is  not  moved. 

Since  the  same  vertex  is  always  in  the  minus  Z direction  (see  STUP3 
and  FILBF  descriptions)  the  routine  as  used  in  SEAMPLAN  is  always  called 
with  IHCOR  = 4.  The  argument  MASK  has  been  eliminated  since  only  those 
lines  completely  visible  are  drawn  in  the  modified  version. 


Program  STUP3 

Program  STUP3  is  scheduled  by  program  TRD  to  perform  set  up  and  initial- 
ization functions  for  3-dimensional  grid  displays.  Its  logic  is  given  in 
Figure  24.  The  TRD  COMMON  block  is  immediately  retrieved  from  disc.  Then, 
depending  on  the  value  of  common  variable  ICODE  (IPRM(3)),  the  user  may  or 
may  not  be  required  to  input  viewing  position  angles.  The  actual  values  of 
these  angles  are  stored  in  variables  OUTPHI  and  OUTHTA,  and  will  be  output 
exactly  as  input  by  the  user.  PHI,  however,  is  modified  to  an  equivalent 
angle  between  zero  and  90  degrees,  and  the  variable  IQUAD  is  set  to  indi- 
cate the  actual  quadrant  of  the  angle  input.  IQUAD  is  later  used  to  de- 
termine the  direction  in  which  the  plot  buffer  is  filled  (see  FILBF  descrip- 
tions) to  allow  for  a full  360°  range  of  positive  and  negative  input  angles. 

The  user  is  then  requested  to  input  FACTOR,  the  elevation  scale  factor. 
Each  point  in  the  grid  will  be  multiplied  by  FACTOR  prior  to  display  to 
allow  the  exaggeration  (FACTOR  >1.0)  or  the  smoothing  (FACTOR  < 1.0)  of 
the  relief  of  the  surface.  The  user  must  then  specify  whether  or  not  he 
wants  hidden  line  removal  and  flag  variable  IHIDE  is  set  accordingly. 

The  rotation  angles,  the  elevation  scale  factor,  and  the  minimum  Z 
value  in  the  grid  file  are  then  used  to  calculate  the  scale  factors  XSCALE, 
YSCALE,  and  ZSCALE  and  the  offset  values  ADDX  and  ADDY  which  are  used  by 
subroutine  PLT3D  to  insure  the  resulting  figure  is  entirely  visible  on  the 
screen. 

Prior  to  termination  which  returns  control  to  program  TRD,  the  COMMON 
block  is  rewritten  to  disc. 
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Initialize:  Retrieve  COMMON 


Get  Hidden  Line  Flag 
Establish  Scale  Factors  and  Offsets 


Write  COMMON,  Terminate 


Figure  24.— STUP3  Logic 


Program  GRDIN 


Program  GRDIN  reads  grid  files  for  various  calling  programs.  The  logic 
is  summarized  in  Figure  25*  After  retrieving  the  COMMON  block  from  the  disc 
which  contains  the  operation  code  and  optionally  the  data  file  name,  the 
routine  checks  the  operation  code.  If  the  operation  code  is  nonzero,  the 
name  of  the  file  to  be  read  is  in  the  COMMON  block  otherwise  the  routine 
interrogates  the  user  for  the  name.  The  file  is  then  opened;  if  an  error 
occurs  on  open  or  if  the  file  type  is  not  equal  to  2,  the  error  flag  is 
set.  If  a grid  file  is  successfully  opened,  the  data  is  read,  the  COMMON 
block  is  written  back  to  disc  and  the  program  terminates.  Program  charac- 
teristics are  summarized  in  Appendix  B,  and  the  COMMON  block  is  described 
in  Appendix  C. 


DMPFL  MODULE 


The  program  comprising  the  DMPFL  module  of  SEAMPLAN  provides  the  user 
to  obtain  a line  printer  listing  of  either  binary  or  grid  files.  This 
routine  was  modified  for  the  M.S.U.  installation  from  the  STAMPEDE  package. 

The  user  may  obtain  line  printer  listings  of  either  binary  and/or  grid 
files.  These  listings  are  useful  for  verification  and/or  review  of  data. 

Program  DMPFL 

As  is  documented  more  completely  in  the  STAMPEDE  Reference  Manual 
( 1)  DMPFL  displays  on  the  line  printer  the  contents  of  a grid,  XYZ,  or 
coefficient  file.  The  capability  to  display  coefficient  files  was  retained, 
even  though  none  exist  in  the  current  system,  to  allow  for  future  enhance- 
ment. The  only  user  input  is  the  file  name;  it  is  not  necessary  to  specify 
file  type,  since  this  information  is  contained  in  the  header  record  of  each 
file.  For  further  information  on  file  types,  see  the  sections  on  Binary  X, 
Y,  Z data  files  and  grid  files  (Appendix  D) . Also,  program  characteristics 
are  given  in  Appendix  B. 


CONDR  MODULE 


At  the  present  time  the  CONDR  module  of  SEAMPLAN  is  merely  a sub- 
module  of  the  DGINT  module.  It  provides  the  user  with  displays  of  con- 
tour maps  generated  by  vectored  data. 

This  vectored  data  is  generated  by  using  the  Tektronix  Digitizing 
Tablet.  These  same  displays  can  be  obtained  in  the  DGINT  module. 

In  the  future  this  module  will  be  modified  to  overlay  the  continuous 
contour  maps  and  the  point  data  displays.  This  will  allow  the  user  to 
put  reference  points  on  the  contour  displays. 

Table  16  summarizes  the  program  segments,  associated  routines  and 
their  function  for  the  CONDR  module. 
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Figure  25.— GRDIN  Logic 


Table  16.  — CONOR  Program  Segments 


NAME  SUBROUTINES  USE 


DGINT 

- 

CONCN 

SQUAR, 
UPDAT , 

SCALE, 

SWCON 

OTLN 

CONDR 

MAPFO, 

CNTUR 

RNDIS 

SQUAR, 

SCALE , 

OTLN 

RNDDR 

DRAWM 

PTDTA 

SQUAR, 

SCALE, 

OTLN 

PNTDR 

DRAWM 

SYMED 

SCALE , 

SQUAR, 

OTLN 

Digitizing  Control 
Continuous  data  digitizing 

Continuous  data  drawing 

Random  (X,  Y.  Z)  digitization 
of  continuous  data 

Random  data  drawing 

Point  data  digitizing  (with 
symbols) 

Draw  point  data  and  symbols 
Edit  point  data  symbols 


Program  CONDR 

Program  CONDR  is  the  drawing  routine  for  the  continuous  data.  CONDR 
is  swapped  in  by  CONCN.  This  is  done  either  by  entering  a "6"  through  the 
record  type  options,  or  by  inputing  an  "S"  through  the  operating  instruc- 
tions of  CONCN.  Continuous  data  files  are  opened,  closed,  and  read  by  the 
subroutine  MAPIO.  All  of  the  actual  drawing  of  the  data  is  done  through 
the  subroutine  CNTUR. 

The  map  is  drawn  on  the  screen  in  an  area  of  approximately  720  by 
720  raster  units.  The  actual  area  used  to  draw  the  map  depends  directly 
on  the  map.  The  lengths  of  the  axes  determine  the  dimensions  of  the  screen 
window.  The  axis  with  the  largest  length  is  assigned  a screen  length  of 
the  largest  possible  size.  The  screen  length  of  the  other  axis  is  scaled 
to  avoid  any  distortion  and  to  give  the  user  a maximum  viewing  area.  The 
map  is  placed  on  the  screen  so  that  the  origin  (lower  left  hand  corner  of 
the  map)  is  at  the  screen  location  (250,30). 

Useful  header  information  can  then  be  placed  along  the  left  margin 
of  the  screen.  This  includes  such  information  as  the  job  name,  the  file 
name,  the  minimum  and  maximum  X geographical  coordinates,  Y geographical 
coordinates,  and  contour  elevations.  This  information  also  contains  the 
grid  interval  and  the  constant  contour  elevation.  A key  for  the  map  is 
also  displayed.  The  user  may  then  obtain  a hard  copy  of  the  map,  may 
zoom  in  and  display  only  a portion  of  the  map,  or  may  change  the  value  for 
the  constant  elevation  between  contours.  If  he  decides  against  doing  any 
of  these  three  things,  control  passes  back  to  the  program  CONCN. 


38 


If  the  user  elects  to  zoom  in  on  an  area,  he  may  also  change  the  con- 
stant elevation  between  contours.  The  zoom  is  accomplished  by  reading  the 
cursor  positions  specified  by  the  user.  The  user  first  positions  the  cur- 
sors at  the  lower  left  corner  of  the  area  to  be  zoomed  in  on,  and  Lhen  at 
the  upper  right  hand  corner.  CONOR  then  draws  the  area  specified  using 
the  same  techniques  described  above. 

All  variables  found  in  the  program  and  in  the  COMMON  block  are  descri- 
bed in  the  program.  By  addition,  the  reader  is  referred  to  the  Appendix  B 
of  this  report  for  further  information. 

Subroutine  MAPIO 

Subroutine  MAPIO  is  the  routine  which  controls  manipulation  of  the 
continuous  data  files  created  by  CONCN . 

These  functions  include: 

1.  opening  the  data  files 

2.  reading  a record  from  the  data  files 

3.  positioning  the  data  file  to  the  first  record 

4.  closing  the  data  file. 

These  functions  are  all  performed  through  RTE  III  FMP  calls. 


Subroutine  CNTUR 


Subroutine  CNTUR  is  designed  to  draw  the  continuous  data  files  built 
by  CONCN,  and  has  been  adapted  from  the  SKYLOG  program  (dee  SKYLOG  documen- 
tation 3.)  CNTUR  first  reads  the  header  information  through  a call  to 

the  subroutine  MAPIO.  Consecutive  records  are  then  read  (through  subrou- 
tine MAPIO)  and  drawn. 

If  the  record  is  a contour  record  the  elevation  is  checked  to  see  if 
it  is  a multiple  of  the  constant  elevation  between  contours.  If  the  eleva- 
tion is  a multiple  of  the  constant  interval  between  contours  the  contour 
is  drawn,  otherwise  the  record  is  ignored.  The  contour  is  then  labelled, 
making  sure  that  the  label  does  not  overwrite  any  other  labels. 

The  kind  of  line  drawn  for  the  record  is  determined  by  the  record  type. 
Thus  there  is  a different  line  type  for  each  of  the  five  different  record 
types.  The  reader  is  referred  to  the  Appendices  for  further  information. 
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PRODUCTION  ANALYSIS  MODULE  DOCUMENTATION  SECTION  III 


GENERAL  COMMENTS 

The  Guide  Map  shows  the  general  SEAMPLAN  program  tree  and  Production 
Analysis  module  details.  Several  submodules  are  shown  under  control  of  a 
Production  Analysis  executive.  These  are  summarized  in  Table  1. 


Table  1.  — Production  Analysis  Sub-Modules 


MODULE 


DESCRIPTION 


ADM  Production  Analysis  initialization,  interaction, 

control  and  macro  (first  order)  design  module. 

PTOPO  Pit  Input  Module 

PITDN  2nd  Level  Dragline  Design  Module,  executive  and 

interaction 

MD  3rd  Level  (Simulation)  Dragline  Module 

MLRS  2nd  Level  Reclamation  Module 

CLAIM  3rd  Level  (CLAIM)  Reclamation  Module 


Each  of  these  modules  represents  a logical  grouping  of  programs  and 
subroutines,  and  will  be  discussed  in  this  section  in  detail.  The  modules 
have  been  given  the  name  of  the  controlling  program,  or  executive,  at  each 
level.  However,  as  described  earlier,  modularization  is  accomplished  on 
both  a program  (swap)  and  subroutine  level. 

To  be  consistant  with  standard  FORTRAN  and  to  facilitate  conversion  of 
programs  to  other  systems,  a semi-transparent  swapping  scheme  has  been  adopt- 
ed with  the  following  conventions.  In  most  cases  a call  to  a subroutine 
which  must  be  swapped  results  in  invocation  by  the  calling  program  of  a 
"dummy"  swapping  version  of  the  subroutine.  This  routine  in  turn  schedules 
a program.  (Usually  this  program  name  has  an  X appended  to  the  subroutine 
name.)  This  program  then  calls  the  "actual"  subroutine  (and  completes  the 
COMMON  and  argument  linkages.  Figure  1 illustrates  this  where  MAIN  is  an 
arbitrary  calling  program  and  SUB  the  subroutine  which  must  be  segmented 
for  swapping. 
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Program  Main 


CALL  SUB 


END 

subroutine' SUB 

Write  COMMON  to  Disc 
Schedule  SUBX  Program 
Read  COMMON  from  Disc 
RETURN 
END 


Program  SUBX 

Read  COMMON  from  Disc 
CALL  SUB 

Write  COMMON  to  Disc 


END 

SUBROUTINE  SUB 

"Real"  subroutine  code 

RETURN 

END 


Figure  1.  — General  Swapping  Procedure  for  Production  Analysis  Module 


In  a few  cases,  more  than  one  subroutine  called  directly  from  the 
"father”  program  has  been  included  with  a single  "son",  or  swapped,  program. 
In  this  case,  a code  is  passed  to  the  scheduled  program  (son)  from  the  in- 
voking program  (father)  to  select  the  proper  subroutine.  This  is  illustra- 
ted in  Figure  2. 

Details  concerning  disc  reads  and  writes,  program  scheduling,  etc.  can 
be  found  by  reading  the  EXEC  call  descriptions  (1) . In  this  section  only 
the  routines  which  are  part  of  the  application  programs  are  described  with 
the  exception  of  ADMX.  Dummy  swapping  routines  are  contained  in  the  source 
file  and  &ADMS,  and  as  described  interfacing  programs  are  in  separate  files 
(generally  with  an  X as  the  last  character  in  the  name) . 


PRODUCTION  ANALYSIS  MODULES 


ADM  (MACRO  LEVEL)  MODULE 


Several  program  segments  operate  under  control  of  ADM.  These  segments, 
together  with  their  associated  subroutines  comprise  the  ADM  module.  This  is 
the  first  macro  logical  level  of  the  production  analysis  module,  or  the  2nd 
control  level  in  SEAMPLAN.  Table  2 summarizes  the  various  segments  compris- 
ing this  level  of  the  production  analysis  module. 

Table  2.  — Macro  Level  Production  Analysis  Program  Segments 


PROGRAM  SUBROUTINES  FUNCTION 


ADMX 

ADM,  ADMUI , 
SFLAG 

P.A.  executive  & interaction  and  output 
control 

ADM0 

BDATA , 

BDGAA 

Simulate  a block  data  COMMON  initiali- 
zation 

ADM1 

INITZ , 
CFINZ , 

DLINZ , 
PRVAR 

Input  default  COMMON  area  values  from 
data  files 

RPTX 

RPT 

Print  summary  reports  for  ADM 

DBEX 

DBE 

Overburden  drill  and  blast  model 

LRSX 

LRS 

Reclamation  level  1,  2,  3 design  con- 
trol program  and  level  model 

QBEX 

QBE 

Coal  drill  and  blast  model 

CHSX 

CHS 

Coal  load  and  haul  model 

GAAX 

GAA 

General  and  administrative  expense  model 

CPFX 

CPF 

Preparation  plant  model 

DLSX 

DLS 

Dragline  level  1 model 

DLS2X 

DLS2 

Interface  routine  for  dragline  level 

2 models 


Figure  2. 


Program  Main 
CALL  SUB1 
CALL  SUB2 
END 

SUBROUTINE  SUB1 
Schedule  PROG  (code  = 1) 
RETURN 
END 

SUBROUTINE  SUB 2 
Schedule  PROG  (code  = 2) 
RETURN 
END 


Program  PROG 

If  Code  = 1 Call  SUB1 
If  Code  = 2 Call  SUB2 

END 

SUBROUTINE  SUB1 

« 

"Real"  SUB2  Code 

RETURN 

END 

SUBROUTINE  SUB 2 

"Real"  SUB2  Code 

RETURN 

END 


— Modified  Swapping  Scheme  for  Production  Analysis  Module 


Most  of  the  routines  comprising  the  ADM  Module  were  acquired  as  part 
of  the  Fluor  Utah  package,  with  modifications  made  as  required.  Each  of 
the  routines  will  be  described  in  this  section  with  the  amount  of  detail 
varying  with  the  modifications  made.  No  attempt  is  made  to  describe  swap- 
ping programs  since  their  format  is  standard  and  the  purpose  simply  to  in- 
terface segmented  routines.  The  user  is  also  referred  to  Fluor  Utah  Final 
Report,  Vol.  10,  13,  16  (2,3,4). 

Program  ADMX 

The  data  sheet  in  Appendix  B summarizes  characteristics  of  ADMX. 

This  program  provides  the  interface  to  the  SPLAN  executive.  In  addition, 
by  calling  subroutine  BDATA,  COMMON  is  initialized.  Since  RTE  III  FORTRAN 
doesn’t  allow  DATA  statement  initialization  of  COMMON  variables,  assign- 
ment statements  were  substituted.  As  is  apparent  in  the  ADMX  listing, 

BLANK  COMMON  has  been  broken  into  ten  distinct  blocks. 

The  first  block  contains  Tektronix  TCS  (Terminal  Control  System 
Library)  COMMON  as  modified  for  this  implementation  as  well  as  swapping 
related  variables.  The  other  nine  blocks  correspond  to  LABELED  COMMON 
blocks  in  the  original  ADM  package  as  released  by  Fluor  Utah  Inc.  (2, 

3,4)  and  modified  for  the  MSU  implementation. 

Ideally,  these  would  be  converted  back  to  LABELED  COMMON  blocks. 

Then  a true  BLOCK  DATA  routine  could  be  used  to  initialize  COMMON  variables. 
However,  storage  limitations  at  MSU  together  with  the  necessity  of  having 
all  blocks  in  the  ADM  subroutine  requires  that  the  BLANK  COMMON  scheme  be 
used  in  this  implementation.  (Additional  storage  needed  for  addressing 
variables  results  in  a compiler  trap  due  to  symbol  table  overflow  if  LABELED 
COMMON  use  is  attempted.)  Conversion  to  other  installations  with  a true 
overlay  capability  would,  of  course,  require  conversion  to  LABELED  COMMON 
blocks . 

Subroutine  ADM 


The  ADM  routine  characteristics  are  briefly  described  in  Appendix  B. 

This  routine  is  invoked  indirectly  by  the  SEAMPLAN  executive,  SPLAN,  by 
scheduling  the  ADMX  program.  ADM  provides  executive  supervision  for  the 
production  analysis  module.  Figure  3 illustrates  ADM's  logic. 

Basically,  routines  are  called  which  cause  mine,  cash  flow,  and  drag- 
line COMMON  blocks  to  be  initialized.  Next,  variables  may  be  changed  in  the 
mine  block  interactively  through  a call  to  the  NMLST  routine.  Having  initia- 
lized the  COMMON  areas,  ADMUI  is  called  and  interaction  with  the  user  may 
result  in  the  execution  of  pit  layout  programs,  interactive  dragline  design 
(level  2),  or  simulation  (level  3)  programs,  as  well  as  the  selection  of 
other  subsystems  to  be  evaluated. 

Returning  from  ADMUI,  IDNFLG  indicates  whether  or  not  any  mining  systems 
models  are  to  be  selected.  If  there  are,  output  files  are  opened,  variables 
in  each  COMMON  block  are  set,  and  each  model  selected  in  ADMUI  is  invoked  as 
required.  Finally,  the  RPT  routine  is  optionally  invoked  to  print  final 
summary  statistics  and  output  files  are  closed. 
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Call  CFINZ,  INITZ,  DUNZ  to  Initialize  COMMON  Areas 

Call  NMLST  to  Change  COMMON  Area  Values 

5:  Call  ADMUI  to  interact  with  user  regarding 
mining  subsystem  selection,  pit  layout,  and 
dragline  selection  and  simlulation 
If  IDNFLG  (Set  in  ADMUI)  so  indicates 

Open  output  data  file 

Initialize  macromine  models  parameters  using  either 
dragline  determined  or  default  production  rates 

Call  DBE— Evaluate  drilling  & blasting  subsystem 
if  selected  in  ADM 

Call  DLS— Evaluate  dragline  macro  equations  if  selected 

Call  QBE— Optionally  evaluate  coal  drill  & blast 

Call  CHS— Optionally  evaluate  load  and  haul  operations 

Call  LRS— If  selected,  involve  reclamation  sub-module 

Call  CPF— Evaluate  Prep.  Plant  model  if  necessary 

Call  GAA— General  & Administrative  model 

Call  RPT— Print  final  summary  report 

Close  output  files 

Go  to  5 

End 

Figure  3.— ADM  Logic 


At  this  point,  ADMUI  is  again  invoked  and  the  user  is  interrogated 
as  to  whether  or  not  he  wishes  to  redesign  any  subsystem,  change  pit  lay- 
out, etc.  ADMUI  will  continue  to  be  invoked  and  ADM  executed  until  IDNFLG 
is  set  to  -1  by  a proper  user  response  to  ADMUI  interrogation. 

Subroutine  RPT 


RPT  is  part  of  the  original  ADM  programming  and  generates  final  sum- 
mary reports  when  called  by  ADM.  In  the  HP  implementation,  RPT  is  the  only 
subroutine  in  the  RPTX  program  segment.  One  modification  which  was  made  to 
the  original  ADM  was  the  deletion  of  the  LINE  routine.  The  code  is  fairly 
straightforward,  with  mine  life  costs  produced  for  each  operation  indepen- 
dently. Appendix  B contains  a summary  for  the  routine  in  SEAMPLAN, 


Subroutine  CFINZ 


CFINZ  is  part  of  the  ADM1  file  initialization  program  segment.  As 
such,  the  GVNCFA  (Cash  Flow  Analysis)  COMMON  block  is  read  from  the  //VNCFA 
data  file.  Appendix  B summarizes  the  routine. 

Subroutine  DLINZ 

As  part  of  the  ADM1  program  segment,  when  invoked  by  ADM,  DLINZ  reads 
the  //DRAG  data  file.  Data  in  this  file  describes  the  dragline,  and  appro- 
priate values  are  stored  in  the  GVNDEC  ADM  COMMON  block  for  use  later. 
Appendix  B contains  a summary  data  sheet  for  DLINZ. 

Subroutine  INITZ 

This  subroutine  is  part  of  the  ADMl  program  segment.  Hence,  a call 
from  ADM  results  in  a swap  of  the  ADMl  program  which  in  turn  invokes  INITZ. 
INITZ  itself  initializes  the  general  mine  area  description  COMMON  block 
of  ADM,  GVNADM,  by  reading  the  file  // VNADM . ENCODE  and  DECODE  are  simulated 
using  HP  RTE  III  equivalent  codes  to  set  appropriate  memory  locations. 
Appendix  B contains  a summary  of  the  routine. 

Subroutine  ADMUI 

The  data  sheet  in  Appendix  B summarizes  subroutine  ADMUI' s characteris- 
tics. This  routine  provides  the  interface  between  users  and  the  production 
analysis  executive,  ADM.  Flow  within  the  routine  may  be  quite  complex,  de- 
pending on  the  status  of  the  logical  variable  FIRST  and  the  code  variable 
IDNFLG.  This  logic  is  diagrammed  in  Figure  4. 

As  shown,  upon  entry  to  ADMUI  the  flag,  IDNFLG,  is  checked.  If  it 
is  equal  to  zero,  ADMUI  is  being  "resumed"  following  execution  of  the  macro 
dragline  model.  This  approach  is  necessary  to  insure  that  the  proper 
variables  are  set  in  ADM  prior  to  invoking  the  Fluor  Utah  macro  model. 

While  this  may  complicate  the  logic  somewhat,  it  guarantees  a minimum  of 
alteration  of  the  original  code. 
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If  IDNFLG  is  not  equal  to  zero,  this  entry  to  ADMUI  is  not  following 
the  macro  model  evaluation.  In  this  case,  FIRST  is  tested  to  determine 
if  this  is  the  first  entry.  If  it  is,  the  user  is  expected  to  select  sub- 
systems for  analysis  and  indicate  whether  pit  layout  is  desired  or  not. 
Otherwise  he  must  respond  to  the  display  shown  in  Figure  4. 

Depending  on  his  response,  he  may  (1)  select  a different  set  of  sub- 
systems and  optionally  modify  the  pit  layout  as  in  the  initial  entry  (new 
mine  plan),  (2)  layout  a new  pit  for  the  existing  subsystems  (new  layout), 
or  (3)  terminate  production  analysis.  Termination  of  production  analysis 
is  accomplished  by  setting  IDNFLG  to  -1  and  returning  to  ADM.  ADM  in  turn 
tests  for  a negative  value  and  returns  to  the  SEAMPLAN  executive,  SPLAN, 
if  appropriate. 

Assuming  the  dragline  operation  has  been  selected  for  analysis,  ADMUI 
will  next  write  the  dragline  design  options  to  the  screen.  This  display 
is  shown  in  Figure  7.  Again,  based  on  user  response,  (1)  the  macro  model 
will  be  evaluated  (through  a return  to  ADM  with  the  proper  flags  set) , 

(2)  DLS2  will  be  called,  which  will  in  turn,  call  PITDN  to  access  the  2nd 
level  dragline  design  models,  or  (3)  call  the  dragline  simulation  execu- 
tive routine.  Option  3 may  only  be  effected  if  a dragline  has  been  de- 
signated either  at  level  1 or  2. 

Subroutine  BDATA 


BDATA  belongs  to  the  ADMO  program  segment.  This  routine  is  used  to 
mimic  a block  data  type  routine  to  initialize  COMMON  variables  and  is 
therefore,  called  from  program  ADMX  since  its  use  is  peculiar  to  the  RTE 
III  implementation.  (HP  RTE  III  FORTRAN  does  not  allow  the  use  of  DATA 
statements  for  this  purpose.)  Assignment  statements  are  substituted  for 
DATA  statements  to  accomplish  this.  All  ADM  COMMON  blocks  except  the  one 
used  by  GAA  are  initialized  here,  with  this  initialized  by  a call  to  sub- 
routine BDGAA  from  BDATA.  The  data  sheet  in  Appendix  B summarizes  the 
characteristics  of  this  routine. 

Subroutine  BDGAA 


This  routine,  called  by  BDATA,  simulates  a BLOCK  DATA  initialization  • 
of  the  GAA  (General  and  Administrative  Model)  COMMON  area.  Figure 
summarizes  the  routine. 

Subroutine  DBE 


This  subroutine,  converted  unchanged  from  the  original  Fluor  Utah 
routine,  simulates  at  the  macro  level  overburdened  drilling  and  blasting 
operations.  The  reader  is  referred  to  Fluor  Utah  Inc.,  Vol.  10,  (2)  for  a 
detailed  description  of  the  equations  and  variables  used. 

The  logic  for  DBE  is  straightforward,  with  the  routine  consisting 
of  two  blocks.  First,  the  model  equations  are  evaluated  followed  by  out- 
put of  a summary  report  to  the  CRT  and,  at  the  user's  option,  to  the  line 
printer.  The  second  block  accomplishes  output  of  records  to  the  LFEC 
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logical  unit  (FLECRG  file)  for  use  by  the  Fluor  Cash  Flow  Analysis  pro- 
gram (3).  (Note:  CFA,  the  cash  flow  program  has  not  been  implemented 

in  SEAMPLAN  at  this  time. 

Subroutine  LRS 


The  logic  of  the  LRS  subroutine  is  similar  to  the  other  ADM  macro 
models.  The  routine  consists  of  two  blocks,  the  first  of  which  is  used 
to  produce  a summary  report  on  reclamation  equipment  requirements.  The 
second  block  generates  output  to  the  FLECRG  file  for  use  by  the  cash 
flow  analysis  (CFA)  program.  The  situation  is  complicated  somewhat, 
however,  by  changes  which  have  been  made  at  MSU  to  incorporate  second 
and  third  levels  of  reclamation  analysis  in  the  SEAMPLAN  system. 

Basically,  after  placing  a menu  on  the  CRT  for  the  user  to  select 
the  level  of  analysis  desired,  the  micro  reclamation  model,  MLRS , may  be 
invoked.  It  is  invoked  if  the  user  selects  either  the  second  or  third 
levels.  The  second  level  is  comprised  of  the  Fluor  Utah  micro  reclama- 
tion model,  while  the  third  level  is  made  up  of  the  CLAIM  subsystem. 

The  data  sheet  in  Appendix  B documents  the  essential  features  of  the  LRS 
subroutine.  (The  reader  is  further  referred  to  the  Fluor  Utah  Final 
Reports  10  and  13  for  additional  information  and  the  program  itself  (2,3). 

Subroutine  QBE 

The  QBE  subroutine  contains  the  Fluor  Utah  ADM  coal  drilling  and 
blasting  routine  as  adapted  for  interactive  use  on  the  MSU  system.  The 
logic  in  QBE  is  similar  to  the  other  ADM  macro  models  and  is  divided  into 
two  blocks.  The  first  block  is  used  to  evaluate  the  model  and  output 
summary  tables  to  the  user,  first  on  the  CRT  and,  optionally,  on  the  line 
printer.  The  second  block  accomplishes  output  of  records  to  the  FLECRG 
data  file  for  use  by  the  CFA  program.  For  a more  detailed  description  of 
the  equations  used  in  the  QBE  routine  as  well  as  the  variable  definitions 
the  user  is  referred  to  the  Fluor  Utah  Final  Reports,  Vol.  10  and  13  (2,3). 
Also,  see  Appendix  B for  a brief  summary  of  its  characters. 

Subroutine  CHS 


The  CHS  subroutine  evaluates  the  Fluor  Utah  ADM  coal  load  and  haul 
macro  model.  The  logic  of  CHS  is  similar  to  other  ADM  macro  model  rou- 
tines, and  is  divided  into  basically  two  blocks.  In  the  first  block  the 
model  equations  are  evaluated  and  output  to  the  CRT  or,  optionally,  the 
line  printer.  The  second  block  consists  of  conversion  equations  and  out- 
put statements  to  the  FLECRG  file.  The  file  is  used  by  the  Cash  Flow 
Analysis  Routines  (CFA).  These  routines  have  not  been  implemented  in  the 
MSU  SEAMPLAN  system  as  of  this  date.  CHS  is  briefly  summarized  in  Appen- 
dix B,  and  the  user  is  referred  to  Fluor  Utah  Final  Report  Vols.  10  and 
13  for  detailed  data  concerning  equations  and  variable  usage  (2,3). 
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Subroutine  GAA 


The  GAA  subroutine  is  used  in  the  Fluor  Utah  ADM  package  to  evaluate 
general  and  administrative  expense  models.  The  logic,  while  similar  to 
other  macro  models,  differs  slightly.  At  the  beginning  of  the  program 
basic  equations  are  evaluated  as  with  the  other  macro  models.  But,  in 
this  case  the  cash  flow  analysis  cards  are  output  to  the  FLECRG  file  next. 
Finally,  the  summary  table  is  output  to  the  user  at  the  CRT  and,  at  his 
request,  to  the  printer.  The  reader  is  referred  for  further  information 
concerning  equations  and  variable  use  to  Fluor  Utah  Final  Report,  Vols. 

10  and  13  (2,3).  The  essential  characteristics  of  the  routine  are  sum- 
marized in  Appendix  B. 

Subroutine  CPF 

The  CPF  subroutine  is  used  to  evaluate  the  Fluor  Utah  ADM  coal  pre- 
paration plant  macro  model.  The  logic  of  the  routine  is  similar  to  other 
ADM  macro  model  logic  with  a slight  difference  in  the  order  of  the  blocks. 
Initially,  the  routine  evaluates  the  basic  coal  preparation  model  equa- 
tions. Next,  output  is  accomplished  to  the  FLECRG  file  (used  by  the  un- 
implemented Cash  Flow  Analysis  Program) , and  finally  a summary  report  is 
output  to  the  CRT  and,  optionally,  to  the  line  printer.  The  reader  is 
referred  to  the  Fluor  Utah  Final  reports  Vols.  10  and  13  for  more  detailed 
definitions  of  equations  and  variables.  Appendix  B summarizes  the  charac- 
teristics of  the  routine  within  the  context  of  the  MSU  implementation  (2,3). 

Subroutine  DLS 


The  DLS  subroutine  is  used  in  the  SEAMPLAN  system  to  implement  the 
Fluor  Utah  dragline  macro  model.  As  such,  the  logic  is  fairly  straight- 
forward. Initially,  when  called  from  the  ADM  routine,  DLS  calls  subrou- 
tine BTDL  to  get  the  boom  length  and  bucket  size  for  the  dragline  and 
evaluate  hourly  owning  and  operating  costs,  etc.  BTDL  actually  evaluates 
boom  length  and  bucket  size  only  if  DLS  was  called  with  variable  IDNFLG 
set  to  zero.  This  indicates  that  the  routine  is  being  called  for  macro 
level  evlauation.  However,  if  BTDL  is  called  with  variable  IDNFLG  set  to 
one,  this  indicates  that  the  routine  is  being  called  simply  to  evaluate 
cost  equations  for  a dragline  designed  within  the  second  level  of  SEAMPLAN. 

Upon  returning  from  subroutine  BTDL  the  DLS  routine  computes  additional 
costs  and  transforms  them  to  annual  costs.  Finally,  if  the  dragline  opera- 
tion output  was  selected  by  the  user,  the  data  cards  for  the  cash  flow  an- 
alysis program  (CFA)  will  be  output  to  data  file  (FLECRG)  for  the  dragline. 
In  addition,  if  support  equipment  has  been  selected  for  the  ADM  models 
additional  records  are  output  to  the  DFA  data  file  to  document  the  required 
support  equipment.  Figure  5 illustrates  DLS's  logic,  and  the  data  sheet 
in  Appendix  B summarizes  its  features  for  the  SEAMPLAN  implementation.  For 
additional  information  concerning  equations  and  variable  use,  the  reader  is 
referred  to  the  Fluor  Utah  Final  Reports,  Vols.  10  and  13  (2,3). 

Subroutine  BTDL 


Within  the  DLSX  program  segment,  the  BTDL  subroutine  is  called  by 
routine  DLS  for  the  purpose  of  sizing  a dragline  to  the  particular  mine 
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Figure  5.-DLS  Logic 


site  of  interest  as  well  as  computing  dragline  owning  and  operating  costs 
and  estimated  power  requirements.  BTDL's  basic  logic  is  diagrammed  in 
Figure  6 . Depending  on  whether  or  not  this  routine  is  called  with  vari- 
able IDNFLG  equal  to  0 or  1,  either  all  or  part  of  the  BTDL  subroutine 
will  be  executed. 

The  logic  in  either  case  is  straightforward.  If  the  design  flag 
variable  IDNFLG  is  equal  to  zero,  this  indicates  that  the  invocation  of 
DLS  and,  indirectly,  BTDL  has  been  for  evaluation  of  the  macro  model. 

In  this  case,  a rough  estimate  of  the  required  dragline  will  be  found. 

In  order  to  do  this  BTDL  will  begin  by  setting  up  an  initial  bucket  size 
and  boom  length  followed  by  a call  to  subroutine  FDLQ.  This  routine  in 
turn  returns  the  required  boom  length  and  bucket  size  to  subroutine  BTDL. 
BTDL  then  concludes  by  computing  a dumping  radius  and  estimated  owning 
and  operating  costs  for  the  machine  based  on  the  product  of  boom  length 
and  bucket  size. 

The  characteristics  of  the  MSU  SEAMPLAN  version  of  BTDL  are  given 
in  Appendix  B.  For  further  information  regarding  the  equations  used  in 
BTDL  the  user  is  referred  to  the  final  Fluor  Utah  Report  Volume  10  (2)  and 
the  associated  Fluor  Utah  Dragline  Data  Book.  The  equations  used  in  the 
BTDL  subroutine  were  derived  using  data  in  the  data  book. 

Subroutine  FDLQ 


The  FDLQ  subroutine  is  called  from  subroutine  BTDL  and  is  used  to 
iteratively  arrive  at  boom  length  and  bucket  size  estimates  for  the 
dragline  macro  model.  Readers  are  referred  to  Fluor  Utah  Inc.,  Final 
Report,  Vol.  10  (2)  for  further  information  concerning  both  equations 
used  and  the  variable  definitions. 


Subroutine  DLS2 


The  DLS  subroutine  provides  the  interface  between  the  Fluor  Utah  ADM 
macro  dragline  models  and  equations  and  the  second,  or  interactive  engi- 
neering design,  level  models  developed  at  MSU.  In  order  to  do  this, several 
variables  which  have  common  definitions  and  usage  in  the  two  routines  need 
to  be  converted  before  calling  PITDN,  the  second  level  dragline  executive 
program.  Similarly,  upon  return  from  PITDN  the  variables  used  by  the 
second  level  models  must  be  reconverted  for  use  by  the  first  level  program. 
Hence,  DLS2  contains  both  the  ADM  macro  mine  and  dragline  COMMON  blocks  as 
well  as  the  single  pass  and  two  pass  dragline  model  COMMON  blocks  from 
the  second  level  dragline  programs  (see  Appendix  C) . 

The  logic  in  the  DLS2  routine  is  straightforward  and  the  character- 
istics of  the  program  are  summarized  in  the  data  sheet  in  Appendix  B. 


PTOPO  MODULE 

The  PTOPO  module  performs  Iterative  pit  layout  with  the  user.  As 
such,  it  is  a series  of  map  display  routines  and  special  programs  for  ex- 
tracting information  from  the  mine  related  grid  file.  In  addition,  infor- 


If  IDIMFLG  = 0 (Macro  Mode!  Selected) 

Calculate  starting  bucket  size  and  boom  lengths 
for  iterative  solution; 

FDLQ  (iterate  to  find  boom  & bucket  size) 


Compute  dumping  radius,  costs,  etc. 


Figure  6.— BTDL  Logic 


mation  concerning  the  mine  site  is  saved  in  the  MINE  file.  Table  3 pre- 
sents the  program  segments  and  subroutines  comprising  this  module. 

Table  3.  — PTOPO  Program  Segments 


NAME 

SUBROUTINES 

USE 

PTOPO 

ZOOM,  BOX  (SEE 
TOPO) 

Control 

GRDIN 

- 

Grid  file  input  utility 

PTLOT 

DRNG,  REDRW , LINE 
CROSS,  CRAMER, 
PUTLN , ADJST 

Pit  layout  interaction 

PTFLS 

- 

Maintains  //MINE  file  for  dynamic 
programming 

DPLOT 

Prepares  data  for  pit  layout 

Program  PTOPO 

Program  PTOPO  is  scheduled  by  the  production  analysis  executive,  ADM, 
for  the  purpose  of  performing  interactive  pit  layout.  PTOPO  is  a modified 
version  of  TOPO,  and  performs  initialization  for  CNTRG  which  draws  contour 
maps,  then  schedules  the  routine  which  actually  performs  the  layout  PTLOT. 
Figure  7 illustrates  the  basic  logic. 

The  program  first  retrieves  the  swapping  parameters  established  by 
ADM:  no  COMMON  is  read.  However,  the  disc  track  information  is  used  for 
subsequent  swaps.  The  //MINE  file  is  opened  and  the  header  record  is  read. 
If  this  is  a first  time  call  (ICODE  = 0 as  opposed  to  a redraw  call  ICODE 
= 1),  the  user  is  asked  to  select  a map  to  be  drawn  from  those  contained 
in  the  //MINE  information.  If  this  is  a redraw  case,  the  index  to  the  pre- 
viously selected  map  is  contained  in  word  34  of  the  //MINE  header  record. 

In  either  case,  the  grid  data  file  is  read  by  program  GRDIN,  which  is 
swapped  at  this  point.  For  a redraw,  the  ranges  or  bounds  are  contained 
in  words  35-38  of  the  header  and  the  contour  interval  is  in  words  39  and 
40.  If  this  is  a first  time  execution,  the  user  is  asked  to  provide  this 
information.  The  windows  are  then  set,  and  the  header  information  is 
written.  The  actual  contour  map  is  then  drawn  by  swapping  program  CNTRG. 

If  this  is  a redraw,  the  //MINE  file  is  closed  and  PTLOT  is  swapped  prior 
to  termination;  otherwise  the  following  operations  must  be  performed 
first:  the  user  may  zoom  in  (ZOOM)  and  he  may  change  the  contour  interval. 

When  he  is  finally  satisfied  with  the  zoomed  area  as  well  as  the  contour  in- 
terval, this  information  is  written  to  the  //MINE  file. 

The  COMMON  block  utilized  by  PTOPO  is  the  standard  grid  COMMON  block 
(see  Appendix  B ) with  the  following  variables  appended: 


Figure  7.-PT0P0  Logic 
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; 


CINT 

XPIT(4) 

YPIT(4) 

MINREC(64) 


The  contour  interval  for  the  current  display 
The  four  X coordinates  of  the  current  mine  area 
The  four  Y coordinates  of  the  current  mine  area 
The  //MINE  header  record 


RECGRD(128) 

MINE (3) 

A(4) 

B(4) 

C ( 4 ) 

IMIN 

IMAX 

JIMN 

JMAX 

XCENT 

YCENT 

FIRST 


The  current  //MINE  data  record,  depending  on  use,  may  con- 
tain any  of  records  2-8 

Contains  "//MINE"  in  ASCII 

The  "A"  coefficient  of  the  four  equations  of  the  edges  of 
the  mine  area 

The  "B"  coefficient  of  the  four  equations  of  the  edges  of 
the  mine  area 

The  "C"  constants  of  the  four  equations  of  the  edges  of 
the  mine  area 

The  minimum  I subscript  of  the  mine  area 

The  maximum  I subscript  of  the  mine  area 

The  minimum  J subscript  of  the  mine  area 

The  maximum  J subscript  of  the  mine  area 

The  X coordinate  of  the  center  of  the  mine  area 

The  Y coordinate  of  the  center  of  the  mine  area 

Logical  variable  indicating  first  time  execution  (TRUE) 
or  redraw  (FALSE) . 


Program  PTLOT 

Program  PTLOT  is  scheduled  by  Program  PTOPO  for  the  purpose  of  laying 
out  a mine  area  on  a contour  map  or  for  redrawing  an  existing  mine  area 
and  drawing  pits  as  designed  by  production  analysis  routines.  Figure  8 
shows  the  basic  logic  involved. 

Since  this  is  a swapped  program,  it  initially  retrieves  the  PTOPO  COMMON 
block  from  disc.  The  //MINE  header  record  is  then  retrieved.  If  this  is  a 
redraw  call,  the  current  status  is  drawn  by  subroutine  REDRW  and  if  suffi- 
cient room  remains,  the  user  specifies  design  range  (DRNG) . 

Otherwise,  pit  layout  proceeds  as  follows:  the  user  first  input  the 

four  trapezoid  corner  points  with  the  virtual  cursors.  The  end  points  of 
the  leading  edge  are  first  requested,  then  the  extents  in  the  direction  of 
mining.  This  may  be  done  in  either  a clockwise  or  counter-clockwise  manner; 
however,  if  the  user  inputs  the  values  in  some  other  order,  the  program 
reorders  them.  The  area  is  then  outlined  by  subroutine  OUTLN.  The  corner 
points  are  stored  in  the  second  record  of  the  //MINE  file,  the  average  length 
and  the  width  of  the  area  are  calculated.  Subroutine  DRNG  is  called  to  de- 
termine the  design  range:  the  distance  from  the  leading  edge  that  is  to 
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Figure  8.— PTLOT  Logic 
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be  analyzed  by  the  production  routines.  The  user  is  then  asked  his  design 
criteria:  production  analysis  is  based  on  a values  for  overburden  depth 

and  coal  seam  thickness.  These  values  can  be  area  averages  (ICRIT  = 1), 
values  at  the  point  of  maximum  stripping  ratio  (ICRIT  = 2),  or  values  at 
a user  specified  point  within  the  area  (ICRIT  = 3).  This  criteria  code 
is  stored  in  the  first  word  of  the  //MINE  header  record.  Program  PTFLS  is 
then  swapped  in  to  determine  area  characteristics.  The  header  record  is 
stored  in  the  //MINE  file,  and  if  this  is  a first  time  execution,  DPLOT  is 
swapped  in  to  determine  values  needed  by  the  geometric  programming  routines 
of  the  production  analysis  module.  The  PTOPO  COMMON  block  is  written  to 
disc  prior  to  termination. 

Subroutine  REDRW 


Subroutine  REDRW  is  called  by  program  PTLOT  to  redraw  the  layed  out 
mine  area  and  to  superimpose  the  pits  which  have  been  designed  by  produc- 
tion analysis  routines.  The  subroutine  uses  no  arguments,  and  the  COMMON 
block  is  the  same  as  that  used  by  PTOPO.  Figure  9 illustrates  the  basic 
REDRW  logic. 

Initially,  the  routine  reads  the  second  record  of  the  //MINE  file 
which  contains  the  corners  of  the  mine  area  previously  layed  out  by  the 
user.  The  current  version  allows  for  only  one  such  segment.  However, 
provisions  have  been  made  to  facilitate  the  addition  of  multiple  segment 
capability.  A call  to  subroutine  OUTLN  outlines  this  area.  Subroutine 
LINE  determines  the  equations  of  the  lines  (AX  + BY  + C) . If  necessary, 
subroutine  ADJST  modifies  each  of  these  equations  to  insure  that  the 
distance  from  each  of  the  lines  to  points  inside  the  trapazoid  is  posi- 
tive. This  is  required  so  that  later  when  the  equations  of  lines  re- 
presenting the  edges  of  designed  pits  are  determined,  the  positive  dis- 
tances from  the  edge  can  be  used. 

The  pit  widths  designed  thus  far  are  then  retrieved  by  reading  the 
7th  and  8th  records  of  the  //MINE  file.  The  number  of  these  pits  is  con- 
tained in  the  23rd  word  of  the  //MINE  header  record,  and  is  stored  in 
variable  NPITS.  If  NPITS  is  negative,  there  is  only  one  relevant  pit 
width,  which  is  considered  to  be  uniform  throughout  the  mine  area.  In 
this  case,  the  actual  number  of  such  pits  is  determined  based  on  the  width 
of  the  mine  area,  and  all  width  values  are  set  equal. 

With  the  number  of  pits  determined  and  the  widths  established,  the 
equations  of  the  lines  representing  the  edges  of  each  of  the  pits  is  deter- 
mined. Only  the  constant  term  is  calculated,  since  the  slopes  of  all  such 
lines  are  the  same  as  that  of  the  first  edge  of  the  mine  area.  Subroutine 
CRAMR  is  used  to  solve  for  the  points  of  intersection,  which  are  then  con- 
nected. AVGS(5),  the  last  edge  designed,  is  updated  throughout  the  drawing 
process.  Control  then  returns  to  PTLOT. 

Subroutine  DRNG 

Subroutine  DRNG  is  called  by  program  PTLOT  to  allow  the  user  to  specify 
the  design  range  of  the  current  pit  layout  to  be  analyzed  by  production  an- 
alysis routines.  This  is  accomplished  through  the  use  of  the  terminal  cross- 
hair cursors. 
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Figure  9.— REDRW  Logic 


The  two  arguments  of  the  subroutine  IX  and  IY  are  simply  the  abso- 
lute screen  coordinates  of  the  last  user  message  written  and  are  used 
for  positioning  of  subsequent  messages. 

The  subroutine  prompts  the  user  with  a message,  then  inputs  an  X,  Y 
location  through  the  use  of  the  virtual  cursors.  The  distance  of  this 
point  to  the  leading  edge  of  the  mine  area  is  then  calculated.  If  this 
distance  is  greater  than  the  width  of  the  area  (the  user  wishes  to  analyze 
the  entire  area,  the  distance  is  set  equal  to  the  width.  Finally,  the 
distance  is  adjusted  to  be  the  distance  from  the  last  pit  designed.  The 
PTOPO  COMMON  block  is  used  throughout  (see  Appendix  B ) . 

Subroutine  LINE 

Subroutine  LINE  called  by  program  PTLOT  calculates  the  equation  of 
the  line  AX  + BY  + C which  passes  through  the  points  (X^,  Y^)  and  (X^,Y^) . 
Arguments  include: 

X^  - the  X coordinate  of  the  first  point 

Y^  - the  Y coordinate  of  the  first  point 

X2  - the  X coordinate  of  the  second  point 

Y^  - the  Y coordinate  of  the  second  point 

A - the  "A"  coefficient  of  the  equation 
B - the  "B"  coefficient  of  the  equation 
C - the  constant  term  of  the  equation 


Subroutine  CRAMR 

Subroutine  CRAMR  is  called  by  program  PTLOT  to  resolve  a pair  of 
simultaneous  linear  equations. 

The  following  arguments  are  utilized: 

A1  - "A"  coefficient  of  first  equation 

B1  - "B"  coefficient  of  first  equation 

Cl  - constant  term  of  first  equation 

A2  - "A"  coefficient  of  second  equation 

B2  - "B"  coefficient  of  second  equation 

C2  - constant  term  of  second  equation 

X - returned  X coordinate  of  point  of  intersection 

Y - returned  Y coordinate  of  point  of  intersection. 

Cramer’s  rule  is  the  solution  technique  employed. 
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Subroutine  OUTLN 


Subroutine  OUTLN  is  called  by  program  PTLOT  to  draw  the  trapezoid 
representing  the  user  specified  (with  cursors)  mine  area.  The  routine 
is  general  purpose  and  will  draw  any  n-sized  polygon. 

Arguments  include: 

X - vector  of  X coordinates  of  the  vertices 
Y - vector  of  Y coordinates  of  the  vertices 
N - number  of  vertices. 

Subroutine  CROSS 


Subroutine  cross  is  accessed  by  program  PTLOT  and  draws  a four  faster 
unit  cross.  The  two  arguments,  X and  Y are  the  virtual  coordinates  of  the 
center  of  the  cross. 

Program  PTFLS 

Program  PTFLS  is  swapped  by  program  PTLOT  to  determine  overburden 
depth  and  coal  seam  thickness  values  in  the  mine  area  based  on  the  user- 
specified  design  criteria.  Figure  10  shows  PTFLS * s basic  logic. 

Initially,  the  PTOPO  COMMON  block  is  retrieved.  The  minimum  and 
maximum  grid  subscripts  are  then  determined.  These  are  the  grid  cell  in- 
dices (stored  in  COMMON  variables  IMIN,  IMAX,  JMIN,  JMAX)  that  index  the 
rectangle  within  the  grid  that  completely  surrounds  the  layed  out  mine 
area.  These  values  will  later  be  used  by  DPLOT  as  grids  are  once  again 
searched.  The  necessary  grid  data  files  are  opened.  If  a single  point 
design  is  desired  (ICRIT  = 2),  the  user  selects  the  point  with  the  cursors. 
Otherwise,  the  files  are  spaced  into  (to  the  top  of  the  rectangle)  and  the 
points  on  each  row  of  the  appropriate  grid  files  are  either  summed  (for 
later  averaging)  or  searched  for  the  point  of  maximum  stripping  ratio. 

Having  completed  this  process,  the  averages  are  finalized,  the  files  are 
closed,  COMMON  is  rewritten  to  disc,  and  control  returns  to  PTLOT. 

Program  DPLOT 

Program  DPLOT  is  scheduled  by  program  PTLOT  for  the  purpose  of  pro- 
ducing the  records  in  the  //MINE  data  file  dealing  with  the  overburden 
depth  and  coal  seam  thickness  values  at  the  point  of  maximum  stripping 
ratio  at  50*  intervals  throughout  the  mine  area  for  use  by  the  multiple 
pit  (dynamic  programming)  optimization  programs.  Figure  11  illustrates 
the  DPLOT  logic. 

The  program  first  retrieves  the  COMMON  from  disc,  opens  the  //MINE  data 
file  and  reads  the  header  record.  From  this  information  the  name  of  the 
stripping  ratio  grid  file  is  determined  and  that  grid  is  read  by  swapping 
GRDIN.  The  indices  of  the  points  of  maximum  stripping  ratio  along  lines 
parallel  to  the  leading  ledge  of  the  area  and  50*  from  each  other  are  then 
calculated.  The  equations  of  these  lines  have  the  same  A and  B coeffi- 
cients as  the  line  of  the  leading  edge;  only  the  C coefficient,  the  constant. 
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Figure  10.— PTFLS  Logic 
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Figure  1 1-DPLOT  Logic 


changes.  After  setting  A1  and  B1  the  width  of  the  mine  area  is  found  as 
the  distance  from  the  line  representing  the  leading  edge  (using  A(l), 

B(l),  and  C(l))  and  a point  on  the  opposite  edge  (XPIT(3) , YPIT(3)).  The 
number  of  lines  within  the  area  (NLINES)  is  then  this  width  divided  by  50, 
plus  1.  For  each  of  these  lines  the  C value  of  the  equation  of  the  line 
(Cl)  is  calculated.  The  entire  rectangle  within  the  grid  which  surrounds 
the  mine  area  is  then  scanned.  Each  grid  point  is  first  checked  to  insure 
it  is  inside  the  mine  area.  If  it  passes  this  first  test,  it  is  then  checked 
to  see  if  it  is  at  most  25'  from  the  current  line.  If  so,  its  value  is 
compared  to  the  current  maximum  stripping  ratio  for  this  line.  If  it  ex- 
ceeds it,  its  indices  become  the  indices  of  the  new  maximum.  In  this  way, 
a pair  of  indices  is  computed  for  each  of  the  lines  in  the  mine  area  and 
stored  in  the  vectors  INDX  and  JNDX. 

The  name  of  the  overburden  isopach  grid  file  name  is  retrieved  from 
the  //MINE  header  record  and  the  grid  is  read  by  swapping  GRDIN.  The  pre- 
viously computed  indices  are  used  to  retrieve  those  values  which  correspond 
to  the  points  of  maximum  stripping  ratio  and  the  values  are  written  to  the 
//MINE  file.  The  coal  seam  thickness  values  are  similarly  retrieved  and 
stored,  the  COMMON  block  is  written  to  disc,  and  the  program  terminates. 

The  COMMON  block  used  by  PTOPO  is  used  by  DPLOT. 


PITDN  (LEVEL  2 DRAGLINE  DESIGN)  MODULE 

The  PITDN  (Pit  Design)  Module,  as  its  name  implies,  consists  of  pro- 
grams for  interactive  design  of  the  dragline  and  pit.  The  programs  belong- 
ing to  this  module  accomplish  evaluation  of  the  engineering  design  (Pro- 
duction Analysis  Level  2)  dragline  models,  generate  the  graphical  displays 
and  other  output,  interact  with  the  user,  and  perform  optimization  of  the 
design  modules  when  requested. 

This  module  has  been  divided  into  several  program  segments  which  ac- 
complish this  task.  These  are  summarized  in  Table  A . As  shown,  each 
segment  consists  of  several  subroutines  each  of  which  will  be  described 
in  this  section  of  the  report.  Communication  between  routines  and  program 
segments  is  accomplished  through  several  COMMON  blocks.  These  blocks, 
while  all  belonging  to  unlabeled  (BLANK)  COMMON,  in  a different  environment 
could  become  LABELED  blocks.  Each  block  used  in  the  PITON  module,  together 
with  a list  of  variable  definitions  is  given  in  Appendix  B. 

Subroutine  PITDN 


In  the  production  analysis  module  the  PITDN  subroutine  performs  the 
executive  function  for  the  evaluation  of  all  second  level  dragline  models. 
Since  PITDN  functions  basically  as  a controller  of  flow  between  other  mo- 
dules, the  logic  is  quite  simple.  The  program  begins  by  calling  subroutine 
USER  to  obtain  an  initial  design  from  the  user.  Next,  subroutines  FLEX, 
DIAGR  and  CNSTR  are  called  consecutively  to  evaluate  the  selected  model 
displayed  on  the  CRT  and  inform  the  user  regarding  plan  feasibility.  Once 
the  feasibility  information  has  been  displayed  to  the  user,  PITDN  places 
on  the  screen  a second  level  dragline  option  menu.  Depending  on  the  user's 
response  to  this  menu,  the  PITDN  routine  will  return  to  the  invoking  pro- 
gram, DLS2,  call  the  routine  which  performs  analytical  optimization,  ANALY, 


or  invoke  the  USER  program  once  again  to  obtain  a plan  from  the  user . The 
user  is  referred  to  Appendix  C for  information  concerning  COMMON  block 
variable  definition  and  usage. 


Table  4.  — PITDN  Program  Segments 


NAME 

SUBROUTINE 

USE 

PITDX 

PITDN,  ANALY,  USER 
CNSTR,  RSPON 

Level  2 dragline  models  executive 
and  interactive  routine 

FLEXX 

FLEX,  START,  WRITX, 
SUMR,  FESBL,  MODL, 
DMODS 

Manages  model  initialization, 
evaluation,  and  optimization 

DPFIX 

DPFIO 

Reads  data  for  the  dynamic  pro- 
gramming solution  code 

PTDPX 

PITDP,  RETRN , GETD, 
DMODS 

Dynamic  Programming  code  for 
solving  multi-pit  problems. 

MOD  IX 
M0D2X 

MODI,  TIME,  INIT7 

2nd  level  single  pass  dragline 
model 

2nd  level  2 pass  dragline  model 

DIAGX 

DIAGR,  DRWPL,  DRWXS, 
TRACK,  HUB,  DRAGL, 
BOOM,  VERB 

Draws  the  dragline  casting  dia- 
grams 

EBNCX 

EBNCH,  DRSPL,  ROTAT 

Draws  MINE  portion  of  casting 
diagram 

DSGNX 

DSGNC 

Write  out  casting  diagram  verbage 

CMP7X 

CMP  7 

Performs  geometry  calculations 
for  casting  diagram  display 

Subroutine  ANALY 

The  ANALY  subroutine  is  invoked  by  PITDN  in  order  to  set  up  variables 
and  invoke  programs  which  will  perform  nonlinear  programming  optizimation. 
ANALY  logic  is  straightforward,  and  involves  initially  interrogating  the 
user  regarding  the  objective  function  for  the  design  optimization  to  be 
used  and  the  decision  variables  to  be  included  in  the  model.  Next,  ANALY, 
using  information  from  the  initial  plan,  the  default  dragline  data  file, 
and  previous  user  specifications  sets  variable  flags  and  decision  variable 
pointers  for  use  in  the  optimization  process.  Finally,  ANALY  invokes  the 
FLEX  routine  with  a code  indicating  that  optimization  is  to  be  performed. 
Once  the  FLEX  routine  completes  the  solution  of  the  nonlinear  program, 
routines  DIAGR  and  CNSTR  are  invoked  to  display  the  optimal  design  in  the 
form  of  a casting  diagram  and  inform  the  user  concerning  the  design  feasi- 
bility. The  user  is  referred  to  documentation  of  the  single  and  two  pass 
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dragline  models  as  well  as  the  Appendices  for  further  definitions  of 
variables  and  pointers. 

Subroutine  USER 


The  USER  subroutine  is  called  from  the  PITDN  executive  in  order  to 
interrogate  the  user  regarding  a desired  plan.  The  user  is  queried  ini- 
tially as  to  the  basic  mining  method  (one  or  two  pass)  to  be  used.  Fur- 
ther information  regarding  pit  dimensions,  the  use  of  side  benching  and 
top  of  coal  fender  options  is  next  obtained.  Finally,  the  dragline  charac- 
teristics are  input  as  a result  of  user  queries  as  well  as  information 
regarding  dragline  purchase  price,  production  rate,  etc.  Several  of  the 
values  which  are  input  can  be  specified  as  zero.  For  example,  the  dragline 
price  may  be  specified  zero  and  user  uses  it  as  information  to  set  bits  in 
the  RMDL  mask  which  will  later  be  used  to  determine  appropriate  decision 
variables  should  optimization  occur.  IMDL  is  also  used  directly  in  the 
models  to  determine  in  some  cases  which  values  are  input  parameters  to  the 
models  and  which  values  must  be  derived  by  the  models.  For  further  infor- 
mation concerning  variable  usage  and  COMMON  block  variable  definitions, 
the  user  is  referred  to  a single  and  two  pass  dragline  model  documentation 
as  well  as  the  Appendices. 

Subroutine  CNSTR 


The  CNSTR  subroutine  is  called  by  both  ANALY  and  PITDN  to  evaluate 
the  feasibility  of  a current  plan.  This  is  done  by  checking  all  constraints 
and  values  stored  in  the  array  RLOC  for  negative  values.  CNSTR  works  through 
all  possible  constraints  with  the  appropriate  constraint  set  depending  on  the 
IMDL  mask,  to  determine  which  constraints  have  been  violated.  When  a con- 
straint violation  is  detected,  routine  RSPON  is  called  with  the  appropriate 
broad  classification  code  and  an  index  which  indicates  the  particular  con- 
straint broad  classification  code  which  has  been  violated.  The  user  is 
referred  further  to  the  discussion  and  description  of  the  RSPON  subroutine 
as  well  as  the  one  and  two  pass  models  documentation  for  further  information. 

Subroutine  RSPON 


The  RSPON  subroutine  is  called  by  CNSTR  to  output  information  to  the 
user  on  the  Tektronix  CRT  concerning  the  feasibility  of  current  plan.  The 
logic  in  RSPON  is  very  simple  and  is  concerned  with  decoding  the  IAREA  and 
INDEX  variables  passed  as  arguments  to  determine  which  write  statements  to 
execute.  The  write  statements  are  divided  into  two  blocks,  one  for  single 
pass  and  another  for  two  pass  models.  Each  of  these  blocks  are  further 
divided  into  blocks  for  the  possible  IAREA  values.  These  values  depend  on 
a broad  classification  of  the  infeasibility  detected,  and  within  each  IAREA 
block  the  index  argument  determines  the  particular  write  statement  which 
must  be  executed  for  the  proper  response.  For  further  information  the  user 
is  referred  to  CNSTR  documentation  available  documentation  for  the  one  and 
two  pass  dragline  models,  and  the  Appendices. 

FLEXX  Program  Segment 

The  FLEXX  program  segment  is  called  as  part  of  the  second  level  drag- 
line design  module  in  order  to  evaluate  the  1 and  2 pass  dragline  models 
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as  well  as  to  perform  the  nonlinear  programming  optimization.  The  actual 
code  comprising  the  nonlinear  program  solution  algorithm  has  been  borrowed 
from  Himmelblau  ( 5 ).  Only  minor  changes  were  made  to  the  original  code, 
and  three  subroutines  were  added  during  the  process  of  integrating  the  al- 
gorithm with  the  SEAMPLAN  system.  The  most  significant  changes  made  to  the 
original  code  include  the  renaming  of  the  main  flexible  tolerance  routine 
to  FTOL,  the  elimination  of  input  in  this  routine,  and  the  addition  of  an 
argument,  IMOD,  to  several  of  the  flexible  tolerance  subroutines. 

The  routines  which  have  been  added  are  FLEX,  MODL,  and  DMODS . These 
routines  were  added  in  order  to  accomplish  interfacing  with  the  second 
level  dragline  design  control  program  segment,  PITDN,  as  well  as  the  models. 

In  addition  to  calling  the  models  directly,  the  flexible  tolerance  routines 
may  indirectly  call  the  models  through  a dynamic  programming  subroutine, 

PITDP.  This  routine  is  used  to  optimize  designs  over  several  pits  and  under 
conditions  including  varying  overburden  depths  and  coal  seam  thicknesses. 

No  attempt  is  made  in  this  report  to  fully  document  the  original  routines, 
and  the  user  is  referred  to  Himmelblau  ( 5 ) for  information  concerning  the 

basic  algorithm,  etc.  However,  the  three  routines  which  have  been  added  for 
the  purpose  of  interfacing  will  be  described  in  detail  here. 

Subroutine  FLEX 

The  FLEX  subroutine,  as  alluded  to  in  the  previous  section,  performs 
an  interfacing  function  within  the  second  level  dragline  design  module. 

That  is,  when  FLEX  is  called  it  may  invoke  (1)  the  flexible  tolerance  non- 
linear program  solution  code,  (2)  the  one  or  two  pass  dragline  stripping 
model,  or  (3)  the  dynamic  programming  algorithm.  As  mentioned,  invokation 
of  and  interfacing  with  the  dynamic  programming  algorithm  is  accomplished 
indirectly  through  the  flexible  tolerance  programs.  The  logic  of  subroutine 
FLEX  is  straightforward  and  is  diagrammed  in  Figure  12. 

Upon  entering  the  FLEX  subroutine,  several  variables  are  initialized 
for  use  by  the  flexible  tolerance  solution  code.  Next,  the  option  code, 

ICODE,  is  tested  for  less  than  zero,  and  if  it  is  less  than  zero  the  models 
routine  is  called  with  a code  of  0 indicating  that  an  independent  data  file 
is  to  be  called  to  initialize  and  evaluate  the  model  (valid  for  one  pass 
model,  MODI,  only).  This  particular  option  allows  FLEX,  and  hence  the  drag- 
line model,  to  be  run  independently  for  evaluation  of  specific  designs  which 
can  be  coded  into  a data  file  used  by  the  model.  If  ICODE  is  not  less  than 
9,  and  this  is  the  case  when  the  routine  is  called  when  running  SEAMPLAN, 
the  model  is  simply  initialized  by  calling  the  MODL  routine  with  a code  of 
5 (the  COMMON  block  having  been  initialized  in  the  DLINZ  and  INITZ  routines). 
Next,  the  option  code  is  tested,  and  if  it  is  not  equal  to  2 the  decision 
variables  are  initialized  and  the  user  is  asked  to  input  convergence  cri- 
teria and  step  values  for  the  flexible  tolerance  code. 

Once  these  values  are  input,  the  variable  IVAR  is  tested  using  a logi- 
cal AND  operation.  If  the  third  bit  has  been  set  (in  subroutine  ANALY  sub- 
routine) the  dynamic  programming  algorithm  will  be  invoked  when  MODL  is  called 
by  the  Flexible  Tolerance  routines  in  order  to  optimize  over  multiple  pits. 
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Initialize 

Then 

If  ICODE  < 0 

Else 

MODL  (IMOD,  0)— Initialize 
ICODE:  = - ICODE 

MODL  (IMOD,  5)— Evaluate 

Then 

If  SCODE  # 2 

Else 

Initialize  Decision  Variables  for  RTOL 
Input  Convergence  & Step  Values 

if  IAISSD  (IVAR,  4) 

1 hen 

= 4 

Else 

Multiple  Pits  Indicated 
DPFILO— Read  #MIS\1E 
ITMP:  = - IMOD 
— Indicate 
Dragline 
FTOL  (ITMP) 

FTOL  (IMOD) 
MODL  (IMOD,  5) 

RETURN 

Figure  12.-FLEX  Logic 
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Also,  DPFIO  must  be  called  prior  to  FTOL  to  read  the  //MINE  file  and  ini- 
tialize the  necessary  variables  for  performing  dynamic  programming  opti- 
mization. The  //MINE  file  is  created  partly  in  the  ADUMI  routine  (ADM 
program  segment)  and  partly  in  the  PTOPO  program  segment  when  the  user 
elects  to  perform  interactive  pit  layout.  Once  the  dynamic  programming 
variables  have  been  set,  FTOL  is  once  again  invoked,  but  with  the  model 
code  set  to  a negative  value  to  indicate  that  dynamic  programming  should 
be  performed  as  an  intermediate  step  between  the  flexible  tolerance  algo- 
rithm and  the  model  evaluations.  Finally,  when  optimization  is  completed, 
in  the  case  of  dynamic  programming,  the  DPFIO  routine  is  invoked  in  order 
to  complete  the  //MINE  file  by  writing  optimum  pit  widths. 

Should  the  user  not  be  performing  dynamic  programming  optimization 
(multiple  pit  design),  or  upon  completion  of  the  normal  optimization  algo- 
rithm, a return  is  effected  to  the  calling  routine  (PITDN  or  ANALY) . The 
FLEX  routine’s  attributes  are  presented  in  Appendix  B.  The  user  is  re- 
ferred for  further  information  to  the  documentation  of  both  the  one  and 
two  pass  dragline  models  (MODI,  M0D2)  as  well  as  the  entire  SEAMPLAN  docu- 
mentation and  Himmelblau  ( 5 ) . 

Subroutine  DPFIO 

DPFIO  is  used  as  an  input/output  utility  to  read  and  write  records 
from  the  //MINE  file  as  part  of  the  dynamic  programming  multiple  pit  op- 
timization algorithm.  When  called  with  a code  of  one,  DPFIO  initializes 
the  DPTH  and  THK  arrays  to  contain  coal  seam  thickness  and  overburden 
depths  which  were  stored  in  //MINE  during  pit  layout  (see  DPLOT  documen- 
tation) . Assumming  the  dynamic  programming  is  used  during  the  optimiza- 
tion phase  of  the  dragline  design,  once  DPFIO  has  loaded  these  two  arrays, 
control  returns  to  FLEX  which  together  with  PITDP  accomplishes  dynamic 
programming.  Following  conclusion  of  the  dynamic  programming  and  flex- 
ible tolerance  decomposition,  DPFIO  is  once  again  called  to  write  out  to 
//MINE  file  the  optimal  pit  widths  which  were  found.  For  additional  in- 
formation, the  user  is  referred  to  documentation  on  the  pit  layout  pro- 
gram series  (PTOPO  module)  as  well  as  the  Appendices. 

Subroutine  PITDP 


PITDP  is  called  as  part  of  the  optimization  strategy  aimed  at  find- 
ing optimal  dragline  design  over  varying  coal  seam  thickness  and  over- 
burden depth  for  multiple  pits.  As  such,  PITDP  implements  a standard 
backward  recursion  dynamic  programming  optimization  algorithm.  The  logic 
of  the  routine  itself  is  somewhat  involved  and  is  summarized  in  Figure  13 
As  shown,  PITDP  consists  of  basically  three  major  blocks  of  code.  The 
first  block  is  used  to  initialize  the  dynamic  programming  variables  used 
Also,  in  this  block  checks  are  made  to  see  if  the  flexible  tolerance 
program  is  calling  PITDP  to  evaluate  an  internally  new  design  at  that 
level  or  simply  to  return  additional  information  concerning  the  current 
design.  If  additional  information  is  all  that  is  required,  an  immediate 
return  is  affected  to  the  FLEX  program  block. 
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(Divides  Into  3 Major  Blocks— Initialization,  Backward 
and  Forward  Recursion  Blocks!) 

“Initialization 

1.  Check  to  see  if  D.P.  needed  (or  new  values 
needed  by  FLEX  for  game  plan!) 

2.  Estimate  NSN  (no.  of  states,  stage  N) 

3.  8 = N 

NSI  = NSN 

“Backward  Recursion  (stage  by  stage  evaluation  . . . ) 

While  I > 0 do 

Call  RETRN— Evaluate  Optional  Width  Vector  for 
Stage  I 

If  I > 1 

Save  decision  vector 
Set  W*.  W“ 

• + 1,  k i,  k Stage  i becomes  i + 1. 
Etc. 

“Forward  Step  to  Recover  Optional  Strategy. 

Set-Up  For  1st  Stage  (last  pit)  I = 1,  si  + 1 = 

W plan,  ki  + 1 = 1.  NSi  + 1 = 1 

220:  While  Si  + 1 > 0 and  I < N do. 

Si  = Si  + 1 
Ki  = Ki  + 1 

Get  Optional  Decision  and  Return  for  Stage  I 
Get  New  Si  + 1,  Ki  + 1,  NSi  + 1 
Set  Wpit 

Evaluate  Return  and  Constraints  for  These  Two  Pits! 
Output  Optional  Times  (F^PT)  and  Decisions 


Figure  13.-PITDP  Logic 
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The  second  major  block  implements  the  first  part  of  the  actual  dynamic 
programming  algorithm.  In  this  block  the  RETRN  routine  is  called  repeated- 
ly to  evaluate  decisions  made  at  each  stage  for  each  possible  state.  As 
such,  RETRN  returns  vectors  of  optimal  decisions  for  each  possible  state 
at  a particular  page.  Once  these  optimal  decisions  for  each  possible  state 
are  available,  PITDP  begins  execution  of  the  third  block  in  the  program. 

In  this  block,  the  program  begins  with  the  first  stage  of  the  last  design 
pit,  and  iterates  through  all  stages  in  a forward  manner  calculating  over- 
all optimum  pit  widths.  This  block  concludes  with  the  output  of  the  optimal 
times  and  decision  vectors.  The  reader  is  referred  to  the  listing  of  the 
program  itself,  as  well  as  the  Appendices  for  additional  information  con- 
cerning variable  definitions,  etc. 

Subroutine  RETRN 

Subroutine  RETRN  is  called  by  PITDP  during  the  backward  recursion 
phase  of  the  dynamic  programming  optimization  scheme.  RETRN  is  used  to 
evaluate  the  return  fucntion  for  each  possible  state  at  the  stage  given. 

It  does  this  by  calling  the  dragline  models  and  returning  the  calculated 
time  for  mining  the  current  pit.  The  logic  of  the  routine  is  fairly 
straightforward  and  is  summarized  in  Figure  14.  Basically,  RETRN  is  com- 
prised of  two  nested  DO  loops,  one  which  iterates  over  the  possible  states 
for  the  current  stage  (KI) , and  the  second  iterating  over  the  possible  de- 
cisions for  a particular  state  and  stage  (J) . Upon  initiating  the  outer 
loop,  the  current  stage  is  set  and  the  optimal  return  at  that  state  is  set 
to  an  extremely  large  number.  The  second  loop  is  involved  with  setting 
current  cut  widths,  obtaining  coal  depth  and  coal  thicknesses,  and  calling 
the  dragline  model  for  each  possible  decision.  Also,  in  this  loop  several 
strategies  which  have  been  experimented  with  are  implemented  for  handling 
constraint  violations.  Currently  strategy  3 is  being  used.  Finally,  the 
inner  loop  concludes  by  storing  the  optimal  decision  (width  and  associated 
return  for  a particular  stage  (I),  state  (K) , and  decision  (J)  the  entire 
subroutine  terminates  and  control  is  returned  to  PITDP  when  optimal  values 
have  been  found  and  stored  for  each  possible  state  for  the  current  stage. 

Subroutine  GETD 


Subroutine  GETD  is  called  both  from  PITDP  and  RETRN  to  perform  linear 
interpolation  between  observed  coal  seam  thickness  (THK) , and  overburden 
depths  (DPTH),  to  find  a depth  and  thickness  at  a particular  point.  To  do 
this,  GETD  uses  a linear  interpolation  approach. 


Routine  MODL 

The  MODL  routine  is  called  by  the  flexible  tolerance  algorithm  sub- 
routines, and  calls  either  PITDP  or  DMODS  depending  on  whether  the  argument 
IMOD  is  positive  or  negative.  If  IMOD  is  negative,  it  is  set  to  a positive 
value  temporarily  and  the  dynamic  programming  routine,  PITDP,  is  called  in 
order  to  optimize  over  several  pit  widths.  If,  however,  IMOD  is  positive, 
this  indicates  that  FLEX  is  in  control  of  the  optimization  entirely,  and 
the  models  should  be  called  directly.  In  this  case,  routine  DMODS  is  called 
with  IMOD  and  ICODE  being  passed  as  arguments  for  selection  of  the  proper 
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Do  Ki  = 1 NS1  (No.  of  States  Loop) 

Set  SI,  current  state,  FSKI  «-  1E25 
Do  J = 1 . NW 

Set  Current  Cut  Width  (Decision  Value)  for  Model  Evaluation 
Get  Depth  & Coal  Thickness  (D,  T)  at  Current  State 
Evaluate  Model 

Implement  Constraint  Handling  Strategy! 

Set  FIJK,  Cumulative  Objective  Value,  Stage  1,  Decision  J,  State  K. 

If  (FIJK  < FSKI,  (FSKI  = Optional  for  Stage  1,  State  K) 

FSKI  «-  FIJK  „ ^ . IW  . 

Set  Optional  Value 
WSKI  W P 

Store  Optional  Decision  and  Return  for  State  K in  the  Vector. 

Figure  14.— RETRN  Logic 
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dragline  subroutine  model  (1  or  2 pass)  and  the  use  respectively.  The 
data  sheet  in  Appendix  B summarizes  the  attributes  of  MODL. 

Subroutine  DMODS 


Subroutine  DMODS  is  called  by  either  the  PITDP  or  MODL  routines  in 
order  to  effect  an  evaluation  of  the  one  pass  (MODI)  or  the  two  pass  (M0D2) 
dragline  models.  As  such,  DMODS  passes  to  these  models  the  necessary  code 
to  determine  the  type  of  evaluation  to  be  made  within  the  model.  Appendix 
B contains  a data  sheet  which  summarizes  the  characteristics  of  DMODS. 

Subroutine  MODI 

Subroutine  MODI  implements  the  single  pass  dragline  models  in  SEAMPLAN. 
As  such,  several  one  pass  mining  methods  may  be  evaluated  including  simple 
side  casting,  side  benching  and  fill  benching  as  well  as  any  combination  of 
these  methods.  The  general  modeling  approach  used  in  MODI  is  described  in 
Ed  Moodey’s  working  papers  (6)  . The  logic  of  this  routine  is  straight- 
forward, and  is  summarized  in  Figure  15.  Basically,  the  routine  consists 
of  five  blocks.  Block  1 is  responsible  for  initializing  the  parameters 
used  in  the  model,  and  this  may  optionally  include  reading  the  //MODI  data 
file  through  a call  to  routine  INIT1.  Following  this  optional  initializa- 
tion and  the  possible  loading  of  the  X vector  with  values  passed  from  the 
flexible  tolerance  nonlinear  programming  search  algorithm,  other  parameters 
related  to  the  geometry  are  initialized  prior  to  computations. 

Computations  begin  in  Block  2,  where  the  cross-sectional  areas  asso- 
ciated with  the  spoiling  from  each  of  six  possible  positions  is  completed. 
These  computations  begin  with  the  calculations  of  the  spoil  area.  If  this 
area  is  greater  than  zero,  some  rehandle  is  indicated,  and  the  extended 
bench  geometry  must  be  included  in  the  model.  Next,  the  extended  (fill) 
bench  area  is  computed  and  this  computation  is  conditioned  on  either  a 
positive  rehandle  requirement  or  the  selection  of  extended  or  fill  bench 
mining  method  by  the  user.  Following  this,  areas  and  dumping  points  are 
computed  for  each  of  the  positions. 

The  third  block  is  used  in  MODI  to  compute  the  dragline  X,  Y locations. 
In  addition,  the  cut  length  is  set  here  in  such  a way  as  to  be  the  maximum 
length  consistent  with  dragline  locations.  Since  dragline  locations  are 
primarily  determined  by  the  spoiling  arc  of  the  dragline  and  the  associated 
volume  in  each  cut,  the  approach  used  to  arrive  at  dragline  position  and 
cut  lengths  is  interactive.  That  is,  an  initial  estimate  of  the  cut  length 
is  made  followed  by  calculation  of  dragline  positions  which  by  definition 
may  modify  the  cut  length  maximum  which  is  possible.  Whenever  the  cut  length 
is  changed,  all  positions  computed  to  that  point  must  be  recomputed  for  the 
new  cut  lengths.  This  process  continues  until  satisfactory  positions  and 
cut  lengths  are  arrived  at. 

The  fourth  block  in  this  routine  is  used  to  calculate  production  rate 
and  bucket  sizes.  The  calculations  actually  performed  in  a particular  run 
depend  on  the  particular  constraints  placed  on  the  design  by  the  user. 

These  constraints  involve  dragline  purchase  price,  operating  hours,  and 
production  rate. 


GO 


^Initialization,  Block** 
If  SCODE  < 0 


Call  INIT1— Initialize  from  #MOD1  File 


5:  If  ICODE*  5 


Set  X Vector  to  Flexible  Tolerance  Values. 


17:  Complete  Parameter  Initialization 


**AREAand  G-sub-i  Calculation** 
Calculate  Necessary  Rehandle 
If  A4  > 0 or  Extended  Bending  Selected 


Set  IMDL  Mask 


Calculate  Extended  (Fill  Bench)  Area  if  Appropriate— AE 
Position  3A— Side  Bench  Material  Spoiled  to  Fill  Bench  (A3A,  63A) 
Position  3B— Side  Bench  Materia!  Spoiled  to  Spoil  Pile  (A3B,  63B) 
Position  1A— Key  Cut  Mat'l  Spoiled  to  Fill  Bench  (A1A,  61A) 
Position  IB— Key  Cut  Mat'l  Spoiled  to  Spoil  Pile  (A1B,  61 B) 
Position  2— Main  Cut  to  Spoil  Pile  Position  (A2,  62) 

Position  4— Rehandling  Position  (Fill  to  Spoil)  (A4,  64) 

**Dragline  Location  and  Cut  Length  Calculation** 

80:  Get  Initial  Length  (I)  value. 

810:  for  i = 1A,  IB,  2,  3A,  3B,  4 do 

Get  yi,  xi 

If  Xi  < Safe  Go  To  810 


If  L > Side  Bench  Indicates 


L = Min. 

Go  To  810 

**Production  Rate  & Bucket  Size  Block*** 
Depending  on  Various  Constraints  on  the  Design 
(Purchase  price,  production  rate,  operating  hrs), 
calculate,  explicitly,  dragline  parameters. 


**Evaluate  the  model  as  a non  linear  program** 

Go  To  (100,  200,  300)  ICODE 

100:  Evaluate  Equality  Constraints  (None) 

Evaluate  Inequality  Constraints 

Evaluate  Objective 
Hours  = Time  1 (B) 

Get  Cost  Per  Ton 
Get  Dragline  Cost 


Figure  15.— MODI  Logic 


The  final  major  block  of  the  program  gets  down  to  the  business  of 
evaluating  the  nonlinear  program.  In  this  section,  depending  on  the  value 
of  the  code,  ICODE,  any  or  all  sections  may  be  evaluated.  The  first  sec- 
tion evaluates  equality  constraints  from  MODI.  If  there  are  no  equality 
constraints,  however,  this  section  must  be  included  for  the  flexible 
tolerance  algorithm.  The  second  subsection  in  this  block  is  used  to  eval- 
uate inequality  constraints  of  which  there  are  several.  The  third  section 
of  the  performance  evaluation  block  is  used  to  evaluate  the  objective 
function  selected.  This  objective  may  simply  consist  of  the  hours  to 
spoil  an  area  or  the  cost  per  ton  of  coal  uncovered,  however,  both  the 
total  hours  to  spoil  the  design  area  as  well  as  the  production  rate  and 
cost  per  ton  of  coal  uncovered  are  computed  as  measures  of  productivity. 

In  addition,  an  estimate  is  made  of  the  purchase  price  for  the  dragline 
selected.  TIME1  is  used  to  return  the  total  time  to  spoil  the  area.  This 
time  includes  walk  time.  The  reader  is  referred  to  the  Appendices  for 
further  information. 

TIME1  Function 


The  TIME1  function  is  called  by  MODI  to  calculate  the  time  to  com- 
pletely strip  the  designated  design  area.  While  the  logic  may  at  first 
appear  quite  complex,  it  is  straightforward.  The  stripping  times  (dig 
plus  swing  and  walk  times)  are  estimated  optionally  for  each  possible 
position.  Once  individual  total  times  are  available  for  each  position, 
these  times  are  summed  and  extrapolated  over  the  entire  area.  The  general 
approach  to  computing  stripping  times  is  to  calculate  an  average  swing 
angle  which  is  defined  as  the  angle  from  the  centroid  of  the  cut  area  to 
the  dump  point,  and  then  use  this  angle  as  well  as  area  dimensions  and 
dragline  size  to  compute  a total  stripping  time  for  a single  cut.  For 
more  information  the  reader  is  further  referred  to  the  Appendices. 

Subroutine  INIT1 


INIT1  is  called  by  MODI  when  FLEX  (Flexible  tolerance)  and  hence 
MODI  are  run  in  a stand  alone  mode,  independent  of  the  SEAMPLAN  system. 
When  this  is  the  case,  INIT1  reads  the  data  file  (#M0D1)  to  load  the 
model  COMMON  block  with  the  appropriate  parameters.  By  selecting  various 
stripping  methods  and  parameter  values,  the  user  may  evaluate  designs 
without  going  through  the  entire  SEAMPLAN  system  under  this  scheme.  The 
reader  is  referred  to  the  Appendices  for  more  information,  to  the  INIT1 
listing  for  an  interpretation  of  the  required  input. 

Subroutine  M0D2 


M0D2  is  used  to  evaluate  the  two  pass  dragline  model.  The  logic 
while  quite  complicated  has  been  documented  in  detail  by  Sattoriva  (7). 

In  most  cases  M0D2  follows  the  general  modeling  approach  used  in  MODI. 

As  such,  the  routine  consists  of  several  well  defined  blocks  of  code  with 
each  block  documented  in  its  own  appendix  in  Sattoriva  (7).  M0D2  calls 
several  subroutines  to  compute  various  geometry  parameters.  In  addition. 
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the  TIME  routine  returns  stripping  and  walk  time  values  when  called.  For 
more  information  concerning  variables  and  equations,  the  user  is  referred 
to  the  Appendices.  Details  concerning  the  model  equations  are  given 
by  Sattoriva  (7). 


TIME  Function 


Function  TIME  returns  stripping  and  walk  times  to  the  M0D2  routine. 
The  logic  is  straightforward,  with  first  pass  times  being  computed  ini- 
tially, followed  by  second  pass  time.  Next,  the  total  times  for  each 
pass  are  computed  as  well  as  total  dig  times  and  walk  times  separately. 
Finally,  the  total  stripping  time  is  summed  and  returned.  The  user  is 
referred  to  Sattoriva' s thesis  ( 7 ) for  details  concerning  the  time  cal- 
culations, which  primarily  center  around  the  use  of  average  swing  angles 
computed  using  centroids  and  spoil  dump  points.  In  addition,  information 
concerning  variable  definitions  and  routine  basic  characteristics  are 
given  in  the  Appendices. 


FYB23  Function 


FYB23  is  called  by  M0D2  to  compute  the  centroid  of  the  fill  bench 
cross-sectional  area.  This  routine  is  fairly  short.  However,  the  equa- 
tions are  quite  complex,  and  the  reader  is  referred  to  Sattoriva  ( 7 ) 
for  details  concerning  the  equations  used.  Further  information  is  also 
available  in  the  Appendices. 

Subroutine  SPCNF 

SPCNF  is  called  by  M0D2  as  part  of  the  rehandle  geometry  calcula- 
tions. As  such,  the  variable  DELTAC  is  computed  and  returned.  For  de- 
tails concerning  the  equations  used,  the  reader  is  referred  to  Sattoriva 
(7).  Additional  information  is  given  in  the  Appendices. 


Function  FNCQD 


Function  FNCQD  is  a utility  used  by  the  M0D2  program  segment.  Given 
the  parameters  for  a second  order  polynomial  equation,  this  routine  will 
return  the  positive  route  using  the  binomial  theorem.  The  routine  is 
called  from  both  M0D2  and  SPCNF,  and  details  of  the  use  of  these  routines 
are  given  by  Sattoriva  ( 7 ) . 

Subroutine  AHAT 


AHAT  is  a short  subroutine  called  by  M0D2  to  return  general  spoil 
pile  geometry  values.  Since  as  the  spoil  pile  accumulated  the  equations 
to  compute  spoiling  points,  etc.  are  generally  the  same,  the  same  basic 
equations  can  be  used  in  this  routine.  For  details  concerning  spoil 
geometry  calculations,  the  user  is  referred  to  Sattoriva  (7). 


Subroutine  DIAGR 


The  DIAGR  subroutine  is  called  in  order  to  produce  casting  diagrams 


on  the  graphics  CRT.  The  one  and  two  pass  model  COMMON  blocks  provide 
general  geometric  parameters  which  are  used  to  compute  the  various  vec- 
tors which  are  needed  to  draw  the  casting  diagrams.  The  logic  of  DIAGR 
is  straightforward.  First,  subroutine  CMP7  is  called  in  order  to  compute 
the  necessary  geometries  for  the  casting  diagram.  It  is  here  that  the 
PTARR  array  is  loaded  with  reference  points  on  the  screen  which  are  used 
in  all  phases  of  the  casting  diagram  production.  Following  the  call  to 
CMP7,  DSGNC  is  invoked  in  order  to  display  on  the  left  hand  side  of  the 
casting  diagram  verbal  information  describing  the  design.  Once  this  in- 
formation has  been  written  to  the  screen,  a third  subroutine,  DRWPL,  is 
called  in  order  to  actually  draw  the  casting  diagram.  The  reader  is  re- 
ferred to  documentation  for  the  MODI  and  M0D2  routines  as  well  as  the 
Appendices  for  further  information  concerning  DIAGR. 

Subroutine  DRWPL 

Subroutine  DRWPL  is  called  by  DIAGR  to  actually  produce  the  graphi- 
cal portions  of  the  casting  diagram  display.  DRWPL  logic  is  straight- 
forward. Initially,  virtual  and  screen  windows  are  defined  for  the  Tek- 
tronix CRT,  and  the  box  which  surrounds  the  plan  view  portion  of  the  cast- 
ing diagram  is  drawn  on  the  screen.  Next,  relying  on  reference  points 
stored  in  the  PTARR  array  by  CMP7,  the  spoil  piles  and  old  and  new  high- 
walls  are  drawn.  The  slopes  on  both  spoil  piles  and  highwalls  are  shaded 
by  a call  to  the  SHADE  routine.  Next,  subroutine  EBNCH  is  called  in  order 
to  calculate  stripping  method  dependent  geometry  values  and  draws  extended 
and  side  benches  if  necessary.  Finally,  XY  locations  are  computed  for  the 
dragline  at  the  various  locations,  and  subroutine  HUB  is  called  to  draw 
these  locations  and  mark  the  dumping  arcs  for  each.  Finally,  subroutine 
DRAGL  is  called  in  order  to  draw  the  dragline  at  the  main  cut  position. 
Once  the  plan  view  is  complete,  subroutine  DRWXS  is  called  to  manage  pro- 
duction of  the  cross-sectional  view  of  the  casting  diagram.  The  user  is 
referred  to  the  MODI  and  M0D2  routine  documentation  and  the  Appendices  for 
further  information. 

Subroutine  DRWXS 


DRWXS  is  called  in  order  to  draw  the  cross-sectional  view  of  the  cast- 
ing diagram  display.  The  logic  of  the  routine  is  straightforward,  and  be- 
gins by  defining  virtual  and  screen  windows  and  outline  area  on  the  screen 
in  which  the  cross-section  is  to  be  displayed.  Next,  the  line  delineating 
top  of  overburden  and  new  highwall  are  drawn  on  the  cross-section  followed 
by  display  of  key  cut  and  coal  separation  lines.  Subroutine  VERB  is  called 
to  label  the  coal  as  such.  Next,  subroutine  HUB  is  called  to  draw  the  hub 
of  the  dragline  on  the  cross-section  view  followed  by  a call  to  DRAGL  which 
draws  the  remainder  of  the  dragline.  DRWXS  concludes  when  a call  to  EBNCH 
which  draws  in  extended  and  side  bench  lines  and  using  dash  lines,  marks 
and  labels  the  various  insitu  materials  location  in  the  spoil  pile  to  the 
left.  The  reader  is  referred  to  the  MODI  and  M0D2  routine  documentation  as 
well  as  the  Appendices  for  further  information. 

Other  Casting  Diagram  Routines 

Various  routines  are  called  both  from  DRWPL  and  DRWXS  to  perform 
specialized  drawing  functions.  These  routines  are  listed  in  Table  5 
together  with  their  use  or  uses  depending  on  the  origin  of  the  call.  Each 
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of  these  routines  is  briefly  summarized  in  Appendix  B,  and  for  variable 
definitions  and  more  information  concerning  models  the  user  is  referred 
to  documentation  on  the  MODI  and  M0D2  subroutines  as  well  the  other 
Appendices . 


Table  5.  — Casting  Diagram  Utility  Routines  and  Use 


ROUTINE 

DRWPL  USE 

DRWXS  USE 

TRACK 

- 

Draws  dragline  track  (foot) 

HUB 

Swing  Arcs  & Dig 
Position  marks 

Draws  Dragline  hub 

DRAGL 

Draws  Dragline 

Draws  Dragline 

VERB 

Labels  Spoil  Pile 
as  such 

Labels  coal  seam 

ROTAT 

Draws  end  of  spoil 
arc 

- 

SHADE 

Shade  spoils  & 
highwall 

- 

BOOM 

Called  by  DRGL  to 

draw  boom  (both  views) 

' 

Subroutine  EBNCH 


Subroutine  EBNCH  is  called  by  either  DRWPL  or  DRWXS . This  routine 
produces  drawings  of  the  extended  and  side  benches  for  both  plan  and  cross- 
section  views  of  the  casting  diagram.  As  shown  in  Figure  lb,  the  logic  to 
perform  these  functions  is  straightforward.  Initially,  EBNCH  must  compute 
the  necessary  mine  geometry  parameters,  and  the  equations  used  for  this 
purpose  must  be  consistent  with  the  dragline  model  equations  for  which  the 
casting  diagram  is  being  drawn  (see  MODI,  M0D2  documentation).  Next,  a 
variable  which  indicates  whether  a plan  or  cross-section  view  is  desired 
is  used  to  branch  to  the  appropriate  block  of  code.  In  either  case,  IMDL 
is  tested  to  determine  which  mining  method  is  being  used  and  extended  and/ 
or  side  bench  geometries  are  drawn  on  the  casting  diagram  depending  on 
these  tests.  In  the  cross-section  view  section,  the  spoil  pile  marking 
and  labeling  is  also  accomplished  by  EBNCH  through  calls  to  the  DRSPL 
routine.  For  a summary  of  the  characteristics  of  EBNCH,  the  reader  is 
referred  to  Appendix  B and  the  data  sheet  for  this  routine.  Variables  and 
equations  used  are  further  defined  in  the  documentation  for  the  dragline 
model  routines  (MODI,  M0D2)  as  well  as  Appendix  C. 


64 


Compute  Mine  Geometry 
Go  To  (100,  200)  I VIEW 
100:  Plan  View 

if  Extended  Bench  Used 

Draw  Pi  an  View  of  Fill  Bench 

Sf  Side  Bench  Used 

Draw  Plan  View  of  Side  Bench 

RETURN 

200:  Cross-Section  View 

if  Extended  (fil!)  Bench  Used 

Draw  X-Section  View 

if  Side  (Working)  Bench  Used 

Draw  X-Section  View 

Mark  Spoi!  Pile  Material  Location— DRSPL 
RETURN 


Figure  16.— EBNCH  Logic 


Subroutine  DRSPL 


DRSPL  is  a concise  routine  which  marks  and  labels  spoil  materials 
in  the  cross-section  view  of  the  casting  diagram  spoil  pile.  As  such 
the  logic  is  straightforward.  DRSPL  is  summarized  in  Appendix  B,  and 
the  reader  is  further  referred  to  Appendix  C and  documentation  for  MODI 
and  M0D2  routines  for  initial  information  concerning  variable  definitions. 

Subroutine  DSGNC 


DSGNC  is  called  by  DIAGR  in  order  to  produce  verbal  design  descrip- 
tions for  the  casting  diagrams.  As  such,  the  majority  of  the  subroutine 
consists  of  FORMAT  and  WRITE  statements.  For  a summary  of  the  character- 
istics of  DSGNC  the  reader  is  referred  to  Appendix  B and  the  data  sheet  ' 
associated  with  this  routine.  Also,  the  dragline  model  COMMON  block  de- 
finitions are  given  in  Appendix  C. 

Subroutine  CMP7 


Subroutine  CMP7  is  called  by  DIAGR  in  order  to  load  the  PTARR  array. 
This  array  contains  the  locations  of  several  standard  virtual  ^screen  re- 
ference points  used  in  producing  casting  diagrams.  In  order  to  determine 
these  reference  points,  CMP7  must  evaluate  several  of  the  dragline  design 
geometry  equations,  consistent  with  the  dragline  models  (MODI,  M0D2) . The 
reader  may  refer  to  documentation  on  the  dragline  model  routines  (MODI, 
M0D2)  for  a description  of  the  equations  used  in  CMP7,  and  the  Appendices 
for  further  information. 


MD  (MCDONNELL  DOUGLAS)  SIMULATOR  MODULE 


GENERAL 


The  McDonnell  Douglas  simulator  module  is  an  adapted  version  of 
the  program  developed  by  McDonnell  Douglas  Electronics  as  part  of  a U.S. 
Bureau  of  Mines  sponsored  project  (8).  This  program,  in  its  original 
form,  included  capabilities  to:  (1)  simulate  dragline  simple  side  casting, 

side  benching,  and  fill  benching  stripping  methods,  (2)  simulate  spoiling 
to  and  movement  of  a hopper-conveyor  system,  (3)  plot  on  a Versatec  plotter 
the  status  of  mining  at  various  points,  and  (4)  automatically  generate  al- 
ternative designs.  Of  the  total  package,  the  full  dragline  simulation 
capability  has  been  implemented.  Due  to  highly  system  dependent  code  in 
the  plotting  and  alternative  generation  programs,  no  attempt  was  made  to 
implement  them.  Also,  since  hopper-conveyor  systems  are  experimental  at 
this  time,  the  capability  was  not  included. 
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The  subset  of  routines  adapted  and  their  relationship  to  one  another 
is  shown  in  Figure  17 . Since  each  routine  is  documented  in  McDonnell 
Douglas  (8)  no  attempt  is  made  here  to  describe  them.  Instead,  emphasis 
is  placed  on  modifications  made  to  the  program  and  routines  added.  Table 
6 summarizes  the  routines  added.  Each  will  be  described  in  detail. 


Table  6.  — Subroutines  Added  to  McDonnell  Douglas  Simulator 


NAME 


PURPOSE 


SWTCH  Switches  ADM  (macro)  COMMON  to  McDonnell  Douglas 

Simulator  Variables 

NH(I,  J)  Accesses  element  I , J in  the  NH  virtual  array 

PUTNH  (NHIJ,  I,  J)  Stores  value  NHIJ  into  element  I , J of  the  NH 

virtual  array 


IMPLEMENTATION  ON  THE  MSU  SYSTEM 


Due  to  the  memory  limitations  of  the  MSU  H.P.  computer,  the  McDon- 
nell Douglas  program  has  to  be  segmented  similar  to  the  rest  of  the 
SEAMPLAN  production  analysis  module.  However,  in  this  case  the  program 
segments  were  named  to  reflect  their  hierarchical  relationships.  Again, 
each  segment  name  corresponds  to  a "dummy"  main  program  which  handles 
COMMON  communication  and  general  "systems"  tasks.  Similarly,  calls  to 
subroutines  residing  in  different  program  segments  actually  are  made  to 
"dummy"  routines  whose  source  is  in  file  &MUDT1.  The  sole  purpose  of 
these  routines  is  to  schedule  or  "swap"  the  proper  segment  containing 
the  "real"  routine.  (See  the  description  of  swapping  under  H.P.  RTE  III 
at  the  beginning  of  Production  Analysis  Module  description.)  Figure  18 
shows  the  control  relationships  between  the  segments  formed  by  aggrega- 
tion of  routines,  and  Table  7 summarizes  each.  The  next  section  describes 
changes  and  additions  to  specific  routines  made  within  this  organizational 
framework. 

RTE  III  system  COMMON  is  used  on  the  MSU  system  for  communication 
of  Tektronix  COMMON  as  well  as  swapping  and  array  segmentation  informa- 
tion within  this  module.  MD  is  scheduled  from  ADMUI  in  a manner  similar 
to  the  DLSX  (macro)  and  PITDX  (level  2)  programs.  Three  McDonnell  Douglas 
programs  had  to  be  changed,  however,  to  accomplish  this: 


1. 

MD 

(EXDRG) 

2. 

MD2 

(DATA) 

3. 

MDD 

(DRAG) . 
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Figure  18.-McDonnell  Douglas  Simulator  Program  Segment  Tree 


Table  7 . — McDonnell  Douglas  Simulator  Program  Segments 


SEGMENT  SUBROUTINES  PURPOSE 

& FUNCTIONS 


MD  EXDRG,  INAM,  SWTCH  Simulator  executive,  user  and  ADM 

interfacing 


MD0 

DRAG,  DTOT,  PFILE, 
AOBR 

MD1 

INTT,  PINIT,  SFILL, 
SVOL,  SHGT 

MD2 

DATA,  DSRCE,  DSPDS, 
UPFLG,  UPCAS 

MD21 

OPSEQ , PROPD , DSPOD 
DSPSQ , DSSAC , OPDFM 
OPDUP 

MD22 

UPSET,  DSPPO,  PRNPD 
DSPAC , WRHDR 

MD3 

MOVE,  MVSG 

MD4 

OBS,  OBRF,  AOBR 

MD41 

OBR,  SWGA,  SPILE, 
SHGT,  RTHTA 

MD411 

BFILL,  SPRED,  RTHTA 

MD412 

DIG 

MD413 

OBRI,  RTHTA 

MD414 

DUMP,  RTHTA 

MD415 

BHEEL,  SPRED,  RTHTA 

MD5 

BNR,  BNRF,  OBR, 
SWGA,  SPILE,  ADBR, 
SHGT,  RTHTA 

MD6 

BFL,  BFLF,  OBR, 
SWGA,  SPILE,  AOBR 
SHGT,  RTHTA 

BCKTX 

BUCKT 

BCRDX 

BCORD,  RTHTA 

TPWRX 

TPWR,  SPEED 

BPWRX 

BPWR,  RTHTA 

Operations  executive,  totals  out- 
put and  save  output. 

Initialization  and  grid  set-up 
Update  and  display  data 
Update/Display  operations  data 

Update/Display  parameter  data 

Simulate  MOVE  operation 

Simulates  overburden  removal  op- 
eration 

Stripping  operations  simulation 
controls 

Bench  fill  dumping  control 
Simulates  overburden  removal 
Initializes  for  OBR 
Determine  bucket  dump  location 
Simulate  bucket  heeling 
Simulates  bench  removal 

Simulates  bench  fill  operation 

Determines  if  a load  is  available 
for  an  operation. 

Generates  bucket  tragectories 

Gets  time  & energy  for  bucket  move 

Gets  load  and  heel  power  usage 
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The  calls  in  DRAG  to  INAM  and  DATA  were  moved  to  EXDRG , and  INAM 
itself  was  changed  to  allow  command  file  specification  and  hence  com- 
pletely automated  execution.  This  was  in  preparation  for  linkage  to 
the  ADMUI  routine,  since  the  file  must  exist.  In  INAM  the  correct  com- 
mand (source)  file  (//MDS1,  //MDS2 , //MDS3,  //MDS4)  is  selected  depending 
on  the  method  used  when  MODE  equals  1. 

MODE  ■=  1 =>  calling  from  ADMUI 

-1  independent  execution  of  MD 


MTHD  = 1 =>  simple  side  casting 

2 — > side  bench  method 

3 =>  extended  bench  (no  side  bench) 

4 ==>  extended  and  side  bench 


Variables  were  also  added  to  ADM  COMMON  blocks  for  communication 
purposes,  and  in  DRGDN  IMTHD  (or  MTHD)  was  set  depending  on  IMDL  (strip- 
ping method  work) . CUTL  and  HBD  were  also  set  there  and  are  initialized 
through  the  ADM  KVN  data  file.  Subroutine  SWTCH  was  also  added  to  the 
MD  program  file  for  the  sole  purpose  of  switching  ADM  variables 
(COMMON  blocks  GVADM  AND  GBDEC 

l l 

data  files  //VNADM  and  //DRAG) 

to  the  corresponding  MD  variables  (blocks  A1DLP . . . etc . ) and  is  called 
when  MODE  equals  1.  McDonnell  Douglas  may  still  be  run  in  a stand  alone 
mode  by  the  command  RUN,  MD,  -1.  In  this  case  changes  in  INAM  make  pos- 
sible the  use  of  a command  file  or  interactive  parameter  setting  or  both. 


ARRAY  SEGMENTATION  - NH  AND  PUTNH  ROUTINES 


The  McDonnell  Douglas  simulator  requires  a significant  amount  of 
computer  memory,  both  for  program  and  data  storage.  As  mentioned,  this 
is  a problem  on  the  MSU  system,  and  the  general  solution  with  respect 
to  program  segmentation  has  been  described  previously.  The  data  storage 
solution  is  somewhat  more  involved,  and  required  segmentation  of  the  NH 
array  which  is  used  to  store  overburden  grid  status  information.  The  mag- 
nitude of  the  problem  is  adequately  discussed  in  McDonnell  Douglas  report  (8). 

The  basic  approach  used  for  solution  at  MSU  was  to  segment  the  array 
with  a 3K  (3072)  work  segment  residing  in  memory  at  any  one  time.  The 
general  procedure  used  is  summarized  below.  Note,  system  available  COMMON 
(BLANK)  was  used  for  all  swapping  and  array  segment  storage,  eliminating 
the  need  to  read  and  write  this  COMMON  from  disc  during  swaps.  Hence, 
concurrent  running  of  other  programs  using  system  COMMON  could  cause  ex- 
ecution errors. 
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1.  Use  two  subroutines  (source  in  utility  file  and  MDUTl) 

FUNCTION  NH  (I,J) 

a.  This  function  retrieves  values  from  NNH  (virtual  NH  array) 

b.  Array  is  as  needed  at  reference  time 

c.  A segment  is  loaded  from  disc  when  needed. 

SUBROUTINE  PUTNH  (NHIJ,I,J) 

a.  This  subroutine  is  called  to  insert  values 

b.  Into  NNH,  the  current  segment  is  written 

c.  To  disc  and  the  segment  containing  the  I,  J 

d.  Element  read  if  necessary. 

In  code  subroutine  for 

NH  (I,J)  = expression 
NHIJ  = expression 
Call  PUTNH  (NHIJ , I , J) . 

2.  Perform  Linear  Mapping  NH  ->■  NNH  by  row  since  successive 
accesses  will  probably  increment  J first. 

(linear  NH) 

3.  Dimension  NNH(3Q72)  ==>  store  two  segments  per  track  Current 
dimensions  (120  X 140)  =>  _3  tracks. 

4.  Derive  track  and  sector  for  segment  read  based  on  segment 
if  as  follows  (64  word  sectors) : 

NSEG  = 2 

ISEG  = referenced  segment  if 
NNHDIM  = 3072 
ISCTSZ  = 64 
XNSEG  = NSEG 

ITRK  - NNHTRK  - IFX(ISEG/ (XNSFG  - .01)) 

ISCT  = (ISEG  - NSEG  * IFIX(ISEG/ (XNSEG  = .01))  -1) *NNHDIM/ISECTSZ 

NSEG  = if  of  segments  per  track 
NNHDIM  - 3072  = if  of  words/segment 
ISCTSZ  = if  words/sector 

5 . IMPLEMENT : 

Search  all  references  to  NH  and  replace 

Delete  NH  dimensions  and  from  argument  and  dummy  lists. 
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MLRS  MODULE 


This  module  consists  of  one  program,  MLRS,  which  controls  both  2nd 
and  3rd  level  reclamation  analysis,  when  such  analysis  is  requested  by 
the  user.  This  module  links  the  Fluor  Utah  Final  Report  Volume  16  (4) 
micro  model  and  the  CLAIM  package  (9)  to  the  macro  level  production/ 
reclamation  analysis  module  in  SEAMPLAN . Swapping  conventions  observed 
in  the  rest  of  the  production  analysis  module  were  not  followed  here, 
and  system  dependent  code  resides  in  the  body. of  the  programs. 

Program  MLRS 

MLRS  controls  the  2nd  and  3rd  level  reclamation  analyses.  Also, 
in  conjunction  with  CLAIM  routines,  MLRS  evaluates  the  2nd  level  equa- 
tions. The  basic  program  is  that  developed  by  Fluor  Utah,  Inc.  as  the 
ADM  (area  dragline)  reclamation  micro  model  (4) . 

Details  concerning  modifications  made  to  the  original  logic  are 
given  in  the  CLAIM  module  section  of  this  volume,  and  the  basic  flow 
is  summarized  in  Figure  19.  First,  MLRS  uses  the  RTE  routines  RMPAR 
and  EXEC  to  read  the  macro  reclamation  (LRSX  segment)  COMMON  block 
from  disc.  Next,  the  #VNLRS,  //VNSEG,  and  //VXTITL  files  are  read  to 
initialize  default  parameter  values. 

Interactive  updating  of  the  default  parameters  in  file  #VNLRS  are 
initiated  through  the  use  of  NMLST.  Area  dimension,  using  KAC  settings, 
and  scraper  parameters  are  computed.  Parameters  are  passed  to  program 
RCLAM  for  dozer  spoil  regrade  computations,  and  the  values  returned  are 
checked  for  adjustments  to  scraper  requirements.  Control  is  then  re- 
turned to  MLRS,  and  final  output  is  generated  prior  to  terminating  and 
returning  to  LRS. 


CLAIM  MODULE 

The  CLAIM  (9)  module  provides  ADM  with  a third,  more  comprehensive, 
level  in  the  Production  Analysis  modules  reclamation  subsystem.  LEVEL  1, 
or  the  MACRO  level,  required  only  minor  changes,  while  LEVEL  2,  the  Fluor 
Utah  MICOR  level,  has  been  revised  to  include  a user  selected  land  use  re- 
clamation alternative  based  on  user  specified  post  mining  topography  and 
CLAIM  analysis  of  a typical  Northern  Great  Plains  rangeland  site. 

The  CLAIM  (LEVEL  3)  system  analyzes  user  input  environmental  data 
to  determine  an  environmental  feasibility  ranking  (FEASI) , a techniques 
and  economics  list  (TECON) , and  optimum  use  factors  (OPUSE)  for  the  five 
CLAIM  defined  reclamation  alternatives.  The  FEASI  ranking  is  based  on 
"expectation  of  success"  values  associated  with  each  environmental  re- 
sponse category.  These  integer  values  range  from  zero  (impossible)  to 
four  (mandatory) . Cost  estimates  for  the  TECON  list  are  developed  from 
an  environmentally  determined  selection  from  the  Master  List  of  Techni- 
ques (MLT) . The  MLT  defines  reclamation  procedures  normally  required 
to  reclaim  any  Norther  Great  Plains  mining  site  to  any  of  the  five  land 
use  options.  OPUSE  factors  are  computed  by  evaluating  both  FEASI  rank- 
ings and  TECON  costs. 


Initialize:  Retrieve  Common  From  Father  (LRS) 

Input  Default  Parameters:  Read  Files 
# VNLRS,  # VNSEG,  # VTSTL— 

Implement  NMLST  routine  to  allow  user 
definition  of  # VNLRS  variables 

Use  KAL  setting  to  determine 
reclamation  acreage. 

Calculate  scraper  requirements  for 
topsoil  removal  & respread 

Calculate  spoil  regrade  parameters 
(swap  to  RCLAM) 

Test  for  scraper  adjustments 

Output  results  -*  pass  # scrapers  & 
dozers  & revegetation  costs  to  LRS— 


Figure  19.-MLRS  Logic 


Level  1 (LRS)  and  LEVEL  2 (MLRS)  were  revised  to  maintain  consis- 
tency between  the  reclamation  costs  determined  by  CLAIM,  and  the  recla- 
mation totals  estimated  by  the  upper  two  levels.  Specifically,  the  two 
non-simulated  items,  land  management  and  general  dozing,  were  removed 
from  the  reclamation  subsystem. 

CLAIM  recognizes  a distinction  between  "environmental  control"  and 
"reclamation, " and  properly  groups  these  two  items  under  the  former. 

Since  the  Production  Analysis  module  does  not  contain  an  environmental 
control  subsystem,  these  user  input,  cost  per  acre  values  are  not  con- 
sidered in  the  current  ADM  system.  In  addition,  the  term  "revegetation" 
has  been  replaced  with  the  more  restrictive  term  "planting,"  since  this 
more  accurately  describes  the  costs  calculated  under  this  category. 

This  section  documents  the  basic  capabilities  of  CLAIM,  details  re- 
garding its  interface  to  the  rest  of  SEAMPLAN,  and  the  program  segment 
which  accomplishes  this,  RCLAM.  The  reader  is  referred  for  specifics 
concerning  inputs  to  CLAIM  to  the  CLAIM  data  book  and  Users  Guide  ( 9 ) • 
Details  concerning  CLAIM  routines  accessed  by  RCLAM  are  given  in  a se- 
parate volume. 

Level  2 Versus  Level  3 Reclamation  Analysis 

Planting  costs  for  the  LEVEL  2 analysis  were  determined  using  the 
CLAIM  data  file  describing  a typical  Northern  Great  Plains  rangeland 
site.  These  data  are  summarized  in  Table  8 and  are  presented  in  full 
under  "SAMPLE  OUTPUT."  Planting  costs  for  the  LEVEL  3 analysis  are 
based  solely  on  the  user's  environmental  data  and  itemized  in  the  TECON 
list.  When  LEVEL  3 is  initiated  the  total  planting  cost  summarized  in 
the  LEVEL  1 output  reflects  all  costs  not  associated  with  topsoil  manage- 
ment and  grading  statistics.  This  may  include  non-planting  items  such  as 
animal  fencing. 

The  LEVEL  2 analysis  always  computes  scraper  data  for  removing  and 
respreading  all  topsoil.  LEVEL  3,  however,  evaluates  both  topsoil  and 
subsoil  parameters  for  possible  adjustments  to  the  scraper  calculations 
passed  from  LEVEL  2.  These  adjustments  may: 

1.  Increase  scraper  needs  for  removal  and  respread  of  subsoil 

in  addition  to  topsoil, 

2.  Increase  scraper  needs  to  accommodate  a topsoil/subsoil 

blend,  or 

3.  Eliminate  the  need  for  scrapers  because  of  special  handling 

of  seedbed  suitable  spoil. 

The  LEVEL  2 summary  headings  combine  both  topsoil  and  subsoil  under 
the  heading  "topsoil"  except  when  3 occurs,  in  which  case  dozer  statis- 
tics only  are  presented. 
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Required  User  Inputs 


For  the  LEVEL  2 analysis  the  user  is  required,  after  execution  of 
the  NMLST  routine,  to  describe  the  topography  of  the  post-mining  area  for 
each  of  the  land  use  reclamation  alternatives.  As  an  aid  to  the  user,  a 
table  is  presented  (on  the  CRT)  containing  recommended  slopes,  and  the 
percent  of  the  area  to  be  covered  by  those  slopes.  The  user  may  use  the 
recommended  slope/percent  pairs,  modify  them,  or  describe  the  area  accord- 
ing to  his  own  specifications  - provided  he  adheres  to  the  restrictions 
outlined  by  the  CLAIM  system.  After  completing  the  topographical  descrip- 
tion, a summary  table  is  presented  displaying  both  grading  and  planting 
costs  for  the  five  land  use  options.  The  user  then  selects  the  post  mine 
land  use. 


Table  8 . — Planting  Estimates  For  Level  2 (1978  Dollars) 
(For  Typical  NGP  Rangeland  Site) 


Technique 

Cropland 

Natural 

Vegetation 

Wildlife 

Recreation 

High  Use 

Chisel  plow 

10.50 

7.87 

7.87 

9.45 

10.50 

Disc  and  Harrow 

3.75 

2.81 

2.81 

3.37 

3.75 

Chaining 

— 

1.25 

1.25 

.50 

— 

Buy  seed 

4.00 

50.00 

50.00 

44.00 

40.00 

Drill  seed 

3.75 

2.81 

2.81 

3.37 

3.75 

Buy  fertilizer:  nitrogen 

9.00 

9.00 

9.00 

9.00 

9.00 

Buy  fertilizer:  phosphate 

7.00 

7.00 

7.00 

7.00 

7.00 

Drill  fertilizer 

1.00 

.75 

.75 

.90 

1.00 

Buy  hay  mulch 

37.50 

28.12 

28.12 

33.75 

37 . 50 

Apply  hay  mulch 

30.00 

22.50 

22.50 

27.00 

30.00 

Hydromulch  seed  and 
fertilizer 

— 

100.00 

100.00 

40.00 

— 

Hand  plant  shrub  and  tree 
seedlings 

— 

150.00 

150.00 

150.00 

— 

Buy,  apply  herbicide 

2.75 

00 

00 

2.75 

2.75 

Administration  tests, 
bonds,  permits 

16.39 

57.32 

57.32 

49.66 

21.79 

TOTALS 

125.64 

439.43 

439.43 

380.75 

167.04 
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The  LEVEL  3 analysis  requires  user  input  of  all  items  described  in 
the  CLAIM  USER’S  DATA  BOOK  (9  ),  with  the  exception  of  the  following: 

1.  Type  of  mine 

2.  Stage  in  mining  sequence 

3.  General  slope  of  ten  random  points  in  the  area 

4.  Cost  to  excavate  spoil 

5.  Distance  between  spoil  bank  peaks 

6.  Initial  slope  of  the  spoil  bank 

7.  Area  covered  by  the  spoils 

8.  General  slope  of  the  area 

9.  Cost  of  grading  overburden 

10.  Thickness  of  topsoil 

11.  Cost  of  topsoil  removal 

12.  Cost  for  topsoil  respreading. 

All  of  the  above  items  are  defined  or  calculated  prior  to  initia- 
lization of  the  LEVEL  3 analysis,  with  the  possible  exception  of  4. 

This  cost  is  computed  only  if  the  dragline  subsystem  is  initiated  prior 
to  scheduling  the  reclamation  subsystem.  Otherwise,  the  user  must  input 
this  value. 

Upon  completion  of  the  environmental  input,  the  user  is  presented 
with  several  CLAIM  options  (9  ).  After  exercising  any  or  all  of  these 
options,  he  selects  the  post  mine  land  use  he  desires;  however,  his  se- 
lection may  be  restricted  by  the  CLAIM  system.  The  user  may  exit  during 
any  stage  of  input  by  entering  a zero.  When  this  happens,  the  system 
reverts  to  the  LEVEL  2 analysis. 

Revisions  to  ADM  Routines 


In  order  to  pass  required  information  to  the  CLAIM  system,  the 
following  two  common  variables  have  been  added  to  the  routines  ADM, 

ADMO,  ADMUI , LRS,  and  MLRS : 

CES  (real) : Cost  to  excavate  spoil 

MRLFG  (integer):  flag  set  to  reclamation  level. 

The  variable  CES  is  initialized  in  subroutine  MAIN,  and  set  to  the 
sum  of  the  total  ownership  and  operating  cost  of  the  dragline.  MRFLG  is 
initialized  in  the  program  LRS.  In  addition  to  the  above  two  variables, 
a COMMON  block  has  been  declared  in  the  MLRS  program  for  communication 
with  CLAIM  routine  (see  Appendix  C) . This  COMMON  block  is  contained  in 
the  integer  array  CSSE.  Regrade  code  has  been  transferred  to  the  CLAIM 
executive  RCLAM  and  deleted  from  MLRS.  MLRS  schedules  RCLAM  by: 


1.  initializing  CSSE  entries 

2.  Using  the  appropriate  EXEC  calls  to: 

a.  allocate  tracks  for  CSSE  transfer 

b.  write  CSSE  to  the  tracks 

c.  swap  control  to  RCLAM 

d.  read  CSSE  from  the  tracks 

e.  release  the  allocated  tracks. 

3.  Redefine  MLRS  variables. 

MLRS  then  checks  MRFLG  for  scraper  adjustments  (MRFLG  =4),  or  an  invalid 
dozer  production  curve  (MRFLG  = 5) . 

All  code  pertaining  to  land  management  and  general  dozing  has  been 
deleted.  All  other  MLRS  code  has  been  left  intact.  Each  code  revision 
is  clearly  labeled  in  the  program  listing. 

Program  RCLAM 

Program  RCLAM  is  swapped  by  the  LEVEL  2 reclamation  program  MLRS. 

The  logic  is  summarized  in  Figure  20.  The  CSSE  COMMON  block  is  read  from 
the  disc,  and  converted  to  the  appropriate  units  and  variable  names  used 
by  the  CLAIM  system.  Depending  on  the  value  of  MRFLGC,  the  following 
occurs : 

MRFLGC  = 2 (LEVEL  2 Reclamation  Analysis) . 

The  program  calls  IRSMR  to  read  the  recommended  post  mining  topogra- 
phical description  for  the  land  use  reclamation  alternatives,  then  calls 
DSPSP  to  allow  user  modification  to  the  recommended  description.  OGPMR 
is  called  to  calculate  regrade  volumes,  then  regrade  parameters  are  cal- 
culated using  MLRS  code  transfer.  The  dozer  production  curve  is  tested 
for  validity.  If  invalid,  the  program  sets  MRFLGC  to  5;  otherwise,  it 
calls  LUOS  for  user  selection  of  the  post  mine  land  use  option.  The  ap- 
propriate CSSE  COMMON  elements  are  redefined,  then  written  to  the  disc. 
Control  is  passed  back  to  MLRS. 

MRLFGC  = 3 (LEVEL  3:  Claim  Subsystem  Reclamation  Analysis) 

The  program  calls  GETID  to  initialize  CLAIM  COMMON,  then  either  in- 
puts environmental  data  from  a file,  or  allows  manual  input,  according  to 
user  response.  SRED  is  called  for  file  entry;  otherwise,  IRSMR  and  DSPSP 
are  called  and  regrade  parameters  computed  and  checked  for  validity  as 
described  above.  EIFD  or  EIAD  are  scheduled,  depending  on  user  preference, 
to  manually  input  environmental  data.  TFCD  is  called  to  test  for  complete 
data,  for  either  file  or  manual  input.  The  value  of  EXIT  is  checked: 

EXIT  = -1  means  complete  data,  and  several  CLAIM  options  are  presented: 
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Initialize:  Read  CSSE  COMMON 


Initialize  CLAIM  COMMON 


Determine  Regrade 

Parameters 

Input  Environmental  Data 
Exercise  Claim  Options 

Get  Reclamation 

Selection 

Determine  Scraper  Adjustments 

Redefine  CSSE  COMMON 
Write  CSSE  COMMON 

Figure  20.— RCLAM  Logic 


Option 

Segments 

Scheduled 

1. 

Select  Reclamation  Alternative 

FEASI,  TECON, 

OPUSE,  LUOS 

2. 

Edit  environmental  data 

EIFD 

3. 

Edit  expectations 

EIFD 

4. 

Store  data 

SRED 

5. 

List  data 

LED 

6 . 

List  expectations 

LEV 

7. 

Analyze/output  data 

FEASI,  TECON, 

OPUSE 

After  one  is  selected,  the  program  tests  for  scraper  adjustments  by 
calling  TC0N1,  TC0N2 , or  TC0N4 . If  needed,  MRFLGC  is  set  to  4,  and  HBTC 
is  set  to  appropriate  value. 

For  incomplete  data,  EXIT  = -1,  the  program  is  directed  by  user 
response  to: 

Option  Segments  Scheduled 

1.  Store  data  SRED 

2.  Complete  data  EIFD 

3.  Revert  to  LEVEL  2 Set  MRFLGC  to  2 and  call  LUDS 


CSSE  COMMON  is  redefined  and  written  to  the  disc.  Control  is  relin- 
quished to  MLRS. 

Reference  to  CLAIM,  Computerized  Reclamation  Planning  System  ( 9 ) , is 
advised  for  a description  of  CLAIM  COMMON  and  all  routines  scheduled  by 
RCLAM. 

Subroutine  LUOS 


Subroutine  LUOS  is  scheduled  by  the  program  RCLAM,  and  uses  the  CLAIM 
COMMON  block.  The  calling  sequence  is:  CALL  LUOS  (CRV) , where  CRV  is  the 

planting  costs  for  the  LEVEL  2 reclamation  analysis. 

For  LEVEL  2,  LUOS  reads  planting  costs  from  the  file  RVD : 15,  and 

stores  these  in  the  array  CRV.  It  then  prints  a table  displaying  grading 
costs  and  planting  costs  for  the  five  land  use  options,  and  the  user  se- 
lects the  land  use  reclamation  alternative. 

For  LEVEL  3,  LUOS  calls  EFC  to  determine  the  permitted  land  use  options. 
Permitted  alternatives  are  displayed  and  the  user  selects  the  land  use  op- 
tion he  desires. 
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Subroutine  EFC 


EFC  is  called  by  subroutine  LUOS  and  uses  the  CLAIM  COMMON  block.  The 
calling  sequence  is: 

CALL  EFC  (LUORNS)  where  LUORNS  is  the  land  use  option  reference 
number  array. 

EFC  first  checks  the  environmental  responses  that  require  an  alter- 
native to  be  implemented.  IARRY  (4)  is  set  to  the  land  use  option  refer- 
ence number  of  any  mandatory  technique,  or  zero  when  no  alternatives  are 
required.  EFC  then  checks  for  alternatives  that  are  not  permitted,  and 
sets  LUORNS  (I)  to  zero  for  any  forbidden  alternative.  (I  refers  to  the 
land  use  option  reference  number.) 


* 
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SPLAN 


APPENDIX  A 
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Figure  la.— SEAMPLAN  Modules 


, 


Figure  1b— SEAMPLAN 

Modules  (continued) 

*Refer  to  Vol.  II  for  further  info  on  these  programs 
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Figure  1c.— SEAMPLAN  Modules 
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/.. 



/ 

../... 

/..  X 

X 

% 

X 

DATA  FILES  ACRES 

sed: 

% 

X 

X 

...//MINE. 

. .//PLTG1 etc 

or-  .files.  Named 

in  ~#MINE - 

k‘ 

j/ 

t 

X X X * X X t * X X % X % X X % % X X X X X X X % X * X X X X % X X X X X X X X X X X X X X X X X X X X X X X X X X X ; 


X 

: X X % X t 


2 


AtAh-*AhAh*Ai*:X*AhAe.  AiXAhAiAhAi  Ah  Ah  Ah 


k k t k t k k t k *:  % t t Xc  * t t k k k k k k k k t k k k k k t * t k k t k t k t * k k t k t k k * t k k k *:  * k k k t k k k * k % * k X. 
X X 

;k'  s F A M P I A N S 0 F T U A R E D n C IJ  H E N T A T 1 0 N I F V F I. . J * 

k k 

k R n 1 1 T T N E N A M E i . /iDMX All  T H 0 R l Elm k 

k k 

revision  code: date: 6/9/79 .. # 

t 

1 . 0 0 A T 1 0 N / A C 0 E S S P R 0 C E D I J R E : pR13 File  ..  &ADMX  / Ru f . ADMX  or  Ru  ? SP LAN  - 

select  3 . . . ± 

type:  * 

rx"i  program  r:  i subroutine  r:  _i  function  # 

k 

G F N F R A I . VI R s C R I P T 1 0 N J . * 

k 

Production  analysis  program  for  swapping  ADM.  subroutine.  y 

k 
k 
k 
k 

■4, 


ACCESSED  BY  t 

SPLAN 

i ink ages: 


* 

* 


* F X T F R N A f...  R F F F R E N C E S i 
% 


% 

k 

% 

% 

% 

k 

% 

% 

% 

% 


k 

R V F . F 1 1 E M A N A G E R » !.  I B R A R Y J 

k 

CLRFO  (RTE) 

EXEC  (RTE) 

IDSEG  (SYS 

lib) 

INITT  (PLOTT 

0) 

k 

k 

k 

t 

k 

special: 

% 

% 

k 

ARP!  I CAT I ON? 

C N A M E / P r o s r & ra  ? 

Sub  rout  i no  ? OR 

F 1. 1 n c t i o r'i ) 

* 

ADM  / S 

BDAT.A/  S 

/.. 

„..../ 

k 

/.. 

/... 

/. 

/ 

k 

/... 

./ 



k 

/ 

/ 

/ 

/ 

k 

/ 

/ 



/... 

/ 

/ 

k 

X: 

DATA  FIEFS  ACCF 

SSED  : 

k 

k 

% 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% 


3 


Ah  Ah  A:  Ah  Ah  Ah  Ah  *$•  Ah  Ah  Ah  Ah  Ah  -X-  Ah  Ah  Ah  -X  Ah  Ah 


* 


level: ,3_. 

AUTHOR : EJm 

DATE  J 8/..16./.7JL. 


* SEAMPLAN  SOFTWARE  DOCUMENTATION 
% 

* routine  name:. ...AH AT. 

* 

* REVISION  code: . 

# 

* LOCATION  / ACCESS  PROCEDURE  J &AHAI 

* 

* type: 

* r :>  program  c.x  3 subroutine  r.  3 function 
% 

* GENERAL  DESCRIPTION: 

* 

% Computer  WPRIM  parameter  for  spoil  area  calculation  in  2-pass 

% dragline  model . 

# 

* 

* 

* 

* 

* ACCESSED  BY: 

* _ M0D2_ 

% 

% linkages: 

% 

* COMMON  - IFCOM,  Ml  COM,  M2 COM,  T2C0M  blocks 

% Arguments  - AREA,  WC,  AHATT, WPRIM 

% 

% EXTERNAL  REFERENCES: 

% 

% RTE*  FILE  MANAGER t LIBRARY: 


* 

* 

Z 

* 

* 

* 

t 

# 

% 

* 

Z 

# 

Z 

Z 

% 

Z 

Z 

Z 

* 

* 

* 

Z 

Z 

O/ 


# 

* 

z 

z 

% 

% 

% 

t 


z % 

z special:  t 

z z 

% % 

% APPLICATION:  (NAME/ProsSrsm*  Subroutine » OR  Function)  # 

* /_  /..  /_.  / /..  * 

% & 

* BATA  FILES  ACCESSED:  t 


Z % 
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Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y * Y t Y Y t Y Y Y Y Y Y Y Y % Y Y Y >!<  Y Y Y Y t Y Y Y 1 

Y Y 

Y S E A M F I...  A N S 0 1 " I W A R E D 0 C U M E N T A T 1 0 N !. . E V E L J _ _ ...3 _. • Y 

Y Y 

Y R 0 U T T.  N E N A M E : ANALY. _ A U T H 0 R J Elin : : 

Y Y 

Y R E V I S 1 0 N C 0 D E t _ _ ._ D A T E t .7/30 (19 * 

Y y 

Y LOCATION  / ACCESS  PROCEDURE J &MALY .. f il.e _ /. . RIJ , _ SPLAN. ...... Y 


E X ;;i  SUBROUTINE 


r :.l  FUNCTION 


* 

Y TYPE  t 

Y 1:  :i  PROGRAM 
* 

Y G E N E R A L D E S C R I P T 1 0 N : 

Y 

Y ANALY  is  called  when  the  dragline  design  optimization  is  called.  It 

Y 

Y interacts  ith  the  user  and  combines  this  input  with  model  and  site 

Y 

Y parameters  to  construct  constraint  and  decision  variable  sets  for  the 

Y 

Y flexible 

Y ACCESSED  BY  ; 

Y PI TON 

Y 

Y LINKAGES  t COMMON  - Tektronix;  1 and  2 pass  model  blocks  Arguements  - IMOD,  K 

Y 

Y 

Y 

Y 

Y E X T E R N A I...  R E F E R E N C E S I 

Y 

R T E r F I I...  E M A N A G E R > I...  I B R A R Y i 

_.  CHS  IZ  £TCS)_ ERASE (TCS)  HOME.  (TCS)  TINP.T..C  ICS) 


Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 


NX,  NIC,  NC,  Model  selection  paly  and  NLP  parameters. 


SPECIAL; 


APPLI CAT ION 
...  cns.tr _./  S 

/.... 

/ 


( N A M E /"  P t o 3 r 3 m v S u b r o u t :i.  n e ? 0 R F u n c t i o n 


Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y D A T A F I i...  E S A C C E S S E D J 

Y 

Y • 

Y 

YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY 


...  PI  AG  R. ......  ,S 

/ 


.ILEX / S 

/.„ 





Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

/_..  Y 

/_.  Y 

./..„  Y 

/_..  Y 

/_  Y 

Y 

Y 

Y 

Y 

Y 
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•:*  -2* 


i 


* 

t SEAMPLAN  SOFTWARE  DOCUMENTATION 

* AOBR 

* ROUTINE  NAME.* 

* 

% REVISION  code: 

* & AOBR 

* LOCATION  / ACCESS  PROCEDURE: 

* 

* type: 

* r 3 PROGRAM  CX3  SUBROUTINE 


LEVEL : _4. 

author:..™.™ 

date: 2.z2J~12.. 


C 3 FUNCTION 


* 

t 

* 

* 

* 

& 


# 

% 


* 

# GENERAL  DESCRIPTION*. 

* 

t Displays  and/or  prints  totals  and  averages  for  each  stripping 

$ operations.  At  the  end  of  a dragline  simmulation,  it  also  displays 

% totals  and  averages  for  the  run 

* 

* 

* 

* 

* ACCESSED  BY: 

% _ OBRF _BNRF BFLF DTOT DUMP__ 

* 

* linkages: 

* 

* 


& 

* 

* 

* 

# 

* 

* 

# 

* 


t 

% 

% 

t 

* 

& 

t 

% 


% # 

* EXTERNAL  REFERENCES.*  # 

% % 

% RTE v FILE  MANAGER » LIBRARY:  # 

* ER^E_(TCS)_  * 

% # 

* special:  z 

% z 

* * 

t t 

$ APPLICATION:  (NAME/ProsSran'iy  Subroutine*  OR  Function)  % 

Z Z 

Z DATA  FILES  ACCESSED:  # 

% LU_5_5_  LU6 _TEP.T?2cilP.l.!r.ei3  vary % 

% _ * 

% Z 


zzzzzzzzzzzzztzzzzzzzzzzzzzzzzzzzzzzzztzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 
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, 


1 


_ 


. 


x £ x x xxxx  >x  % x t * x x * x x x if'  x x x * >:<  x xxx  x * x x x x x x x t xxxx  x x x t x x x x ^ * x £ x % x x x $ x xxxtxxx 


BCORD 


* 

X SEAMPL.AN  SOFTWARE  DOCUMENTATION 
X 

* ROUTINE  NAME 
X 

X REVISION  CODE » 

X 

X LOCATION  / ACCESS  PROCEDURE  J 

* 

* type: 

X r.  3 PROGRAM  f.Xj  SUBROUTINE 


LEVEL  J 


& BCORD 


C It  FUNCTION 


X GENERAL  DESCRIPTION: 
X 
X 
X 
X 


Generates  a possible  bucket  path  from  the  current  position  to  the 
end  specified  in  the  arguments.  (5-5) 


X 

X 

X 

X ACCESSED  by: 
& MUSG. 


OBR 


SWGA 


author: e_L x 

x 

DATE  J X 


....  X 
X 
X 
t 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
* 


* linkages: 

x 

X 


X 

& 

X 


X 

X EXTERNAL  REFERENCES: 

* 

X RTF i FILE  MANAGER?  LIBRARY: 

X 

X 


special: 


X 
X 
X 
X 
X 
X 
X 
X 
X 

X DATA  FILES  ACCESSED: 


application: 

NH_.__/_F 

/.. 

/_ 


<NAME/Pro3ram?  Subroutine?  OR  Function) 


X 

X 

t 

X 

t 

.„  X 
* 
$ 
* 
X 
X 

% 

\V 


.../ 


/E 

/__ 

/_. 

/„  X 

/ 

/ 

..  „ /... 

/ & 

/„ 

x 

/_. 

./ 

/_. 

/ >fc 

/_ 

/_. 

/„ 

/ *£ 

X 

X 

X 

X X 
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Is 


9 


- 


******** * * * * * * * * * * * * * * * * ****** * * * * * * * * * * * * * * * * * * * * * * * * * * * * ***** * * * * * * 
* •* 

* s E A M PI  AN  S 0 F T W A R E D 0 C (J M E N T A T 1 0 N I E V F I. . J . . * 

* * 

* ROtJ  T I NE  NAME  X ,BDATA All  THOR  * ...Elp. * 

* * 

* REV  I S I ON  CODE  ? _.  DATE  ? 1/16/79 *; 

* * 

* |.OC A T T 0 N / ACC F S S P R 0 C E D I. .1 R E X 1 11^..  ABE)A.T.A  / involy ed  by  ADMX * 

* * 


* type: 

* r :.i  program  r : x "•  subroutine  r:  :.i  function 

* 

* G E N E R A I...  n E S C R I P T T 0 N ? 

* 

& BDATA  simulates  a block  data  routine  to  initialize  ADM  Common  areas. 

* 


* 


* 

* 

* 


* 

A* 


•j.- 

'v- 

* 

* 

* 


* 

* 

* 


* 


* ACCESSED  BY ? 

* ADMX 

\l/ 

* LINKAGES? 

* 

* Blank  Common  Blocks 

* 

* 


* 


'i' 

'T' 


■}/ 


% 

% 


•J/ 

/!*• 


* F X T F R N A I R E F F R E N 0 E S X % 

* * 

* R T E"  r F 1 1...  E M A N A G E R » I . I B R A R Y i • * 


* A P F:' ! . I C A T 1 0 N X ( N A M E / P r o b r am?  S u b r o u t i r'i  e ? Cl  R:  F u ri  c t .i.  o n ) * 

* BDGAA / S.  ... ... / ...  / ..  — / ...  * 

* / / _ / / / * 
* * 


* DATA  FILES  ACCESSED? 

•J/ 


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
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L 


* * x x % x x * X * X X X X X X * * X X X X X X X X X X X 'X  X X X X X X X X X X X X X X X X X X X X X X X XXXX  X X X X X X X X X X X X 
X X. 

X s F A MPI . A N S 0 F I W A R E D 0 C U M E N T A T 1 0 N I E V E I.  I X 

X x 

X ROUTINE  NAME  JBD.GAA AUTHOR! ...Elm X 

X 

X R E U I S T 0 N C 0 D E !..._ D A T E J 7/16/ 79  

X X 

X LOCATION  / ACCESS  PROCEDURE  ! File. &BDGAA_ / „ RV , ADMX * 

X X 

x type:  * 

X r 1 PROGRAM  r X :]  SUBROUTINE  r.  "I  FUNCTION  X 

Y X 

X GENERAL  DESCRIPTION : ■ 

Y 

X Simulates  a BLOCKDATA  initialization  of  the  GAA  Common  Area. 


X 

X 

X 

X 

X 

X 

sir 

X 

X 

X 

X 

X 

X 

X 

X 

'i- 


X 

X 

X 

X 

X 

X 

X 


ACCESSED  by: 

..  .BDATA 


I INK ages: 

GAA  Common  Area  required. 

F X T E R N A I...  R E E F R F N C E S ! 

RTF  ? F I I..E  MANAGER  ? I.  I BR AR Y : 


SPECIAL : 


A P P (..  1 0 A T 1 0 N : < N A M E / P r o X r a m * S 1. 1 b r o u t i n e ? 0 R F i. \ i"i  c ■[,  ;i.  n ri > 


./... 

/ 

. / .... 
./... 


/ ... 

/... 

/.. 


X 

X 

X 

r\\ 

% 

X 

X 

•Jr 

X 

X 

X 

•x- 

O' 

O' 

•Jr 

M 

■4: 


/..  X 


./...  * 
./...  X 


X DATA  FILES  ACCESSED ! 


X 

Y 


r Jr  Jr  sfy  ’X*  '4-‘  '•*'  ’4/  -l'  sir  Jy  ■■)/  Jr  ’Jr  sLr  sly  Jr  Jr  Jr  Jr  Jy  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  s'r  Jr  Jr  Jr  Jr  Jr  sir  sly  Jr  Jr  sir  Jr  Jr  Jr  sir  sir  sly  Jy  Jr  -Jr  Jr  Jr  Jr 

■ v-  o'  o'  o'  o'  o-  o'  o'  o'  t*  O'  o'  O'  o'  o-*  O'  0-  O'  O'  O'  O'  O'  o-  T-  o''  O'  O'  o'  O'  o - O'  O'  O'  o'  o'  o'1-  %•  'A  O'  o'  o - o'  O'  o'  O'  O'  O'  O'  O'  *•  O'  o'  o*  O'  O'  O'  O'  O'  O- 
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X X 

X SEAMPL.AN  SOFTWARE  DOCUMENTATION  LEVEL? 4. * 

X t 

X ROUTINE  NAME  ? _ BFILL AUTHOR ?„_ Elm. * 

X t 

X REVISION  CODE? DATE? 8-2j5-29. >jc 

# X 

X LOCATION  / ACCESS  PROCEDURE ? * 

* X 

t type:  * 

X C T PROGRAM  L x3  SUBROUTINE  C T FUNCTION  * 

X X 

X GENERAL  DESCRIPTION:  X 

X X 

$ Calculates  dumping  location  for  bevels  fill  operations  and  updates  $ 

&•  the  overburden  array  for  proper  distribution  of  the  material.  # 

X X 

X X 

X X 

X X 

X X 

X ACCESSED  by:  X 

X _._P2B. - X 

X X 

x linkages:  * 

X X 

X X 

X & 

X X 

X EXTERNAL  REFERENCES?  X 

X X 

X RTE 7 FILE  MANAGER t LIBRARY?  X 

X X 

x special:  x 

X _ x 

X X 

X APPLICATION?  ( NAME/Pro^rem » Subroutine » OR  Function)  X 

x ... _.NH./F  RTHTA/F  SPRED_./_S  ;/..  # 

X X 

X DATA  FIL.ES  ACCESSED?  * 

X X 

X X 

$ X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxx 

10 


Xc 

>}c  SEAMPLAN  SOFTWARE  DOCUMENTATION 
Xc 

* ROUTINE  NAMEi—.Hk 

* 

% REU  J SION  code: 

* 

# LOCATION  / ACCESS  PROCEDURE l iJL?L. 


LEVE 


r *3  SUBROUTINE 


!I  3 FUNCTION 


* type: 

* r.  3 PROGRAM 
t 

* GENERAL  DESCRIPTION: 

Xc 

Z BFL  controls  the  bend  fill  operation  sequencing. 

* 

* 

% 

Xc 

XC 

Xc 

Xc  ACCESSED  BY: 

# DRAG 

>!c 

xc  linkages: 

* 

* 

xc 

Xc 

Xc  EXTERNAL  REFERENCES: 

Xc 

>£  RTF?  FILE  MANAGER t LIBRARY: 


Xc 
Xc 
% 

Xc 
Xc 
Xc 
* 

Xc 
* 

Xc 
# 

Xc 
t 

Xc  DATA  FILES  ACCESSED: 
Z 

% 


special: 


application: 

MLE-.-./S 

„/„ 


XC 

Or 

XC 

AUTHOR xc 

date:„_ xc 

z 

% 
XC 
XC 

Xc 
xc 
XC 
XC 

xc 
Xc 
Xc 
Xc 
Xc 
Xc 
* 

Xc 

z 
% 
% 
% 
Xc 
Xc 
% 
Xc 
X< 

X< 

jjj 
% 
% 

Xc 


(NAME/P rob ram?  Subroutines  OR  Function) 


JDBE/-S 

/_ 

/„ 


/„ 


/... 


Xc 

Xc 

/_  Xc 

/_  Xc 

Z 

/_.  Z 

/__  Xc 

Xc 

x< 


t 

z 


zztzztzzzzzzzzzzzzzzzzzzzztzzzzzzzzzztzzztzzzzttzztzzzzzzzzzzzzztztzz 
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X 


X SEAMPLAN  SOFTWARE  DOCUMENTATION 
X 

* ROUTINE  NAME ! „._  JFLF 

* 

x revision  code: 


* 

level: *. # 

X 

AUTHOR  :„„Elm * 

% 

DATE: B-2.5-79 * 


* LOCATION  / ACCESS  PROCEDURE  ♦ 

* 

* type: 

* r 3 PROGRAM  C XU  SUBROUTINE  iC  J FUNCTION 

* 

% GENERAL  DESCRIPTION: 

X 

X Writes  bench  fill  operations  totals  on  the  line  printer  and/or 

$ CRT  when  appropriate  during  a dragline  simulation. 

* 

* 

X 

% 

X 

$ ACCESSED  BY: 

* .BEL 

* 

* linkages: 

X 


X 

X 

X 

X 

% 

X 

X 

X 

% 

% 

% 

% 

X 

X 

% 

% 

X 

% 

X 

X 


X X 

# • X 

X X 

X EXTERNAL  REFERENCES!  * 

X X 

X RTE f FILE  MANAGER » LIBRARY!  * 

X -ERASE -<-TGS)-  IPMIlSYS) — # 

X X 

x special:  * 

x x 

x x 

X APPLICATION!  ( NAME/P ro^rsm?  Subroutines  OR  Function)  X 

X /..  /._  _/...  /-..  Y 

X / /_  /„  /..  /_  X 

# X 

X DATA  FILES  ACCESSED l X 

# _LU5,  FU6  _ S£.?iBnineiLt:_Zar:^es  _ X 

X X 


xxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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* Jjc 

% SEAMPL.AN  SOFTWARE  DOCUMENT  AT  TON  LEVEL  i % 

3^  >fC 

* ROUTINE  NhHE:_.„.BF2 AUTHOR* ... Jtf.». _Lax.s o.n * 

X % 

X REVISION  CODE ♦ BATE t X 

X X 

X L OCATION  / ACCESS  PROCEDURE  * .CORE . HOLE„.CO.NSIRll(ITI.QIl  jmD_.Y.ERTIE ICAXI.QN. # 

X X 

x type:  # 

* r.  XT  PROGRAM  C 3 SUBROUTINE  IT  3 FUNCTION  * 

* X 

X GENERAL.  DESCRIPTION:  t 

t X 

X This  is  a test  program.  It  is  used  to  verify  the  keyed  access  files  % 

X built  for  core  hole  analysis.  X 

X X 

X X 

X X 

X X 

X X 

* ACCESSED  by:  X 

X X 

x linkages:  x 

x t 

X X 

X X 

X X 

X EXTERNAL  REFERENCES:  X 

X X 

X RTF p FILE  MANAGER y LIBRARY:  X 

X CHSIZ.CTCS). CLOSK C%KAFMP ) _MEfLlRIE)._  ^JUITILilCa)  t 

X OPENKC%KAFMP)  _ .MTRV C2MFMP ) X 

X X 

& # 

x special:  x 

% _ % 

% , , X 

'4c  4C 

* APPLICATION:  (NAME/ProsJraroy  Subroutine*-  OR  Function)  X 

t X 

X DATA  FILES  ACCESSED:  X 

X X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxtxxxxxxxxxxtxxxxtxxxxxxxxxxxxxxxxt 
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X 

* 

He 

i< 

t 

* 

* 

He 

XV 

* 

* 

* 

He 

He 

He 

He 

t 

t 

t 

% 

He 

He 

t 

% 

t 

*V 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

H 


SEAMPLAN  SOFTWARE  DOCUMENT  AT I ON 
BHEEL 


LEVEL 


ROUTINE  NAME; 

revision  code; 

LOCATION  / ACCESS 


4 
Elm 


AUTHOR  t I. He 

date:. !:2±L9 * 


& BHEEL 

procedure; 


type; 

C 3 


PROGRAM 


fX3  SUBROUTINE 


r 3 FUNCTION 


GENERAL  DESCRIPTION; 


Calculates  the  bucket  path  coordinates  and  distributes  the  material 
moved  by  heeling  during  bench  fill  operations  in  the  dragline 
simulator . 


ACCESSED 

OBR 


by; 


EXTERNAL  REFERENCES; 

RTF y FILE  MANAGER * LIBRARY • 


special; 


# 

He 

He 

He 

* 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

$ 

He 

He 

He 

* 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 


He 

application; 

( N A M E / P r o si  r a ni  ? 

Subroutine » 

OR  Function) 

He 

% 

NH _/F 

PUJNH_/_S 

...RTHTA/F 

SPRED/S 

/... 

He 

% 

/ 

/ 

. .....  ../... 

._ / 

/ 

He 

& 

. __  / 

/ 

/... 

He 

He 

... _ 

/_.  

/_ 

_ / .... 

/.. 

He 

He 

/.. 

/_  



/ 

/.. 

He 

He 

He 

He 

DATA  FILES  ACCES 

sed; 

He 

He 

& 

He 

...  ..  ... 

He 

He  He 

He  He  He  t He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  t & He  He  He  He  He  He  t He  He  t He  He  He  He  He  He  He  >!:  He  He  t He  He  He  He  He  He  He  He  He  He  He  t He  H<  He 
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He  t 

H<  SEAM  PLAN  SOFTWARE  DOCUMENTATION  LEVEL  X i _. 

t 

* ROUTINE  NAMEJ M.?. AUTHOR J— 11™ 

* 

% REVISION  CODE! DATE  $ §.“2_5rZi 

He 

* LOCATION  / ACCESS  PROCEDURE J £„?M. „ 

* 

* TYPE i 

He  T 3 PROGRAM  CX3  SUBROUTINE  I 3 FUNCTION 

* 

He  GENERAL  DESCRIPTION: 

Controls  sequencing  during  bench  removal  operations  in  a 

^ dragline  simulation. 

* 


He 

* 


* 

* 

* ACCESSED  BY: 

^ DRAG 


He 

* linkages: 

* 
t 


t 


t 


* external  references: 

£ 

% RTE > FILE  MANAGER r LIBRARY: 


* 

$ 

He 

He 

He 

He 

He 

He 

« 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 


special: 


APPLICATION:  (NAME/Pros-Sram?  Subroutiner  OR  Function) 


bnrf_/__s  PM.„/.§  / / /_ 


DATA  FILES  ACCESSED: 


He  >):  He  He  He  He  H' He  ^ He  He  He  He  H' He  ^ H<  He  He  He  ^ He  H- He  ^ He  H<  He  He  He  He  He  He  He  He  He  He  He  H<  He  He  ^ He  He  He  $ H:  H:  He  He  He  He  He  H:  He  He  He  He  He  He  He  He  He 
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& ¥r  3$  2$  & ^ ■*£  $$  -X-  & $$  ■JS  3$  •34  **  ^ •*$  & $$  -■&  <3$  {&  ^ & -M.  $$  $5.  & $$  $$  & $£.  .3$.  & & 3$ 


* 


BNRF 


* SEAM PLAN  SOFTWARE  DOCUMENTAT ION 

* 

)!<  ROUTINE  NAMEi 
# 

# REVISION  code: - 

* 

& BNRF 

* LOCATION  / ACCESS  PROCEDURE  J 

* 

# type: 

# C 3 PROGRAM 

# 

# GENERAL  DESCRIPTION: 

* 

* 
t 
* 
t 


LEVEL  : .7. 

Elm 


AUTHOR : 

hate:  — 


8-25-79 


CX3  SUBROUTINE 


C 3 FUNCTION 


Writes  bench  removal  operation  totals  on  the  line  printer  and/or 
the  CRT  when  the  cycles  are  normally  controlled  in  the  dragline 
simulation . 


t 

\lr 

& 


* 

t 

t 

% 

% 

* 

t 

# 

t 

& 

t 

t 

t 

t 


ACCESSED 
MS... 

linkages: 


BY 


EXTERNAL  REFERENCES: 


RTF 9 FILE  MANAGER ? LIBRARY: 
ERASE  (TCS)  IDENT  (SYS) 


# special: 

% 

t APPLICATION:  (NAME/Prossrem*  Subroutine r OR  Function) 


* 

AOBR 

/.. 

/_ 



/ % 

& 

/_ 

/_ 

. „ _./.._ 

/_„ 

.../  * 

* 

/_ 

/_ 





_/_  t 

/_. 

/_ 

— ....  — ....  / .... 

/_ 

/_.  t 

& 

/_ 

/„. 

/„.. 

/.. 

* 

* 

* DATA  FILES  ACCESSED: 

# M.5»._LU6 a ssig  nm e n t s _var  y. 

$ 
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^ «•  if  if  Xr  -5f  -if  X*  if  if  if  -if  -x-  if  irf  X-  -if  if  X-  if  X-  -if-  -if  -if  $f  if  x~  -ic-  if  X-  if  if  if  x-  *x-  x-  x-  x-  x-  x if  -5*  & x-  X-  if  if  if 


\ 


* 1 X X X X X X X X X X X X Hi  >!<  * X X X-  * * * X Hi  >K  X X X X X X X X-  X X X X X X * X X X * X XXX  X X X Hi  X X X X X X X X Hi  X X X X X X X 

X 

X 8 F. A M F' I... A N S 0 F T W Ft R F D 0 C U M F N T A T 1. 0 N I F V E I ..  ? ...3 

Hi 

X ROUT  I NE  NAMEI BOOM AUTHOR} Elm  

Hi 

Hi  R F V I S 1 0 N C 0 D F i D A T F } J.  J 30/ 7.9 ... 

X 

X I 0 C A T 1 0 N / A C C F S S P R 0 C E D U R F t &BOOM. 

X 

X TYPE? 

x i::  :i  program  r:x:;i  subroutine 

x 

Hi  G E N E R A I ..  D E S C R I P T 1. 0 N ? 

X 
X 


r :\  FUNCTION 


BOOM  draws  the  dragline  boom  in  either  the  plan  or  cross-section  views 
of  the  casting  diagram. 


X 
X 
X 

Hi  Hi 

Hi 

Hi  X 

X ACCESSED  BY?  Hi 

it  DRAGL Hi 

Hi  Hi 

H<  LINKAGES?  X 

X X 

X COMMON  - Tektronix,  MODI,  MOD2,  DIAGR  blocks  Hi 

X X 

X Arguments  - X OFF,  Y OFF,  Z VIEW,  DELTA;  point  location  arrays,  view  X 

X E X T E R N A L R E F E R E N C E S ? X 

X Play,  and  boom  rotation  angle.  Hi 

R1  E ■'  F .1 1.. E MANAGER  ? LIBRARY*  X 

PRAWA(TCS) IQWAT  (TCS)  MOVFA(TCS) 


X 
X 
Hi 
Hi 
Hi 
Hi 
Hi 
X 
X 
X 
X 
X 
X 
X 
X 
Hi 

X DATA  FILES  ACCESSED? 

X ... 

H<  

H< 


SPEC  I.AU 


A PPL I CAT ION? 
/_ 


Hi 

Hi 

Hi 

X 

Hi 

Hi 

Hi 

( NAME/P rosSrsm  ? Subroutine?  OR  Function)  X 

/ / ._./ /....  He 


/ ...  Hi 

X 
X 

Hi 

_ H: 

Hi 

H<ttHiH<Hi>KYtH<>tHiHitHiH:HiH<H:H?HiHitHiHiHiH:HiHiHiHiHiHiHiHiHiHiHiHiHiHiH<H:HiHiHiHiHiHiHiH:HiHiHiHiHiHiHiH:k:{iH;HiHiH:HiHiH:H: 


17 


34  34  34  34  34  * ? 34  3*  34  * 34  *3  * 34  34  34  34 


*r  * 


X X X X X X X % X X X X X X X % * X X X X X X X X X X X X X X X X X X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

X 

S E A M F I.  AN  S 0 F T W A R E D 0 V, (J M E N T A T I G N I . E V FI  : . X 

•4/ 

R n 1 1 T J N F N A M F t ... BOX . „ A U I H 0 R t .Lehman ..  * 

r f o :r  s i o n c o n e j . JLQ - ™ » a t f t 6/1/7  9 


* 1.0  C A T 1 0 N / A C C F S S P R 0 C E D U R E $ &..CNTRG  ..file 

* 

X TYPE  J 

x r i program  r x:i  subroutine  r:  :i  function 

* 

X GENERAL  I'lFSCRIPTION ! 

Y 

Draws  a frame  around  the  rectangle  whose  minimum  and  maximum  coordinates 

* 

% are  arguments  of  the  routine. 


X 

X 

X 

X 

X ACCESSED  B Y t 

X CNTRG PL.TCN 

$ 

X LINKAGES  I 
X 

X Called  by  PLTCN;  no  common;  uses  arguments. 

X 

X 

X F X T F R N A I...  R F F F R F N C F S l 
X 

X RTF  f FILE  MANAGER  ? I...IBRARY  t 
X 

X SPEC  I AL  t 

...T.CS _ 


A PPL I CAT I ON 


< N A M E / P 1 r o b r a m ? S «.  i r>  r o u t .i  n e v 0 R f u n c i i o n ) 


X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


..  ./.. 

...A... 

.../... 

./... 

/ 

/... 

/... 

/._ 

/.. 

/ 

/... 

./ 

/ 

..../... 

_../.... 

/ 

/... 

DATA  FILES  ACCESSED  t 
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^ *£•  Pr  »$■  W:  yh  'JA  ¥-  ■$£  ■?«  -K-  X ^ -34  34  $4  34  24  34  14  34  34  34  34  34  34  34  34  34  34 


* * 

* SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL  * % 

* BPWR  Elm  * 


* ROUTINE  NAME ♦ AUTHOR; tf 

* . 8-25-79  * 

t revision  code: date: % 

* & BPWR  * 

* LOCATION  / ACCESS  PROCEDURE; - * 

* % 

* TYPE J # 

Jjc  C 3 PROGRAM  I X]  SUBROUTINE  T 3 FUNCTION  * 

& t 


% GENERAL  DESCRIPTION: 

jt 

;'  Computes  the  power  used  to  load  the  bucket  and  smooth  the  terrain 

during  bench  fill  operations  (5-26). 

$ 

* 


* 

% 

% 

t 

* 


# 

# 

# 


* 

% ACCESSED  BY: 
* DIG 


* linkages: 


OBR 


* 

* 

# 

* 

t 

t 

* 

% 


* % 

* t 

* t 

* EXTERNAL  REFERENCES:  * 

* * 

* RTF f FILE  MANAGER » LIBRARY:  * 

Xc  t 

t * 

* special:  * 

* # 

% APPLICATION:  < NAME/P roa ran. * Subroutine » OR  Function)  % 

* /_ /..  / /_.  * 

% /..  /_  /„  /..  /...  * 

% % 

# DATA  FILES  ACCESSED:  # 

t % 

t * 
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* X X X X X X % x x x x x * x * x<  * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 
X X 

X S E A M P t...  A N S 0 F T W A R E D 0 C U fi  E N 1 A T 1 0 N L E V E L J 2 x 

X x 

X R 0 IJ  T I N E N A M E J RTDL _ A (J T H 0 R t Elm _ * 


BATE  : 7/20/79 


X 

X REVISION  CODE; 

X 

X L 0 C A I j:  0 N / A C C E S S P R 0 C E D U R E t &.BTD.L...  file..  / ..  RV. ADM ;...  RV , S.PLAN 

X 

x type; 

x r:  ii  program  rixii  subroutine  r:  :i  function 

Y 

X G E N E R A L D E S C R I P T 1 0 N J 
X 

x Called  by  DLS  to  size  a dragline  (if  RDNFLG  = 0,  or  the  macro  model 

X< 

X is  regetted)  and  estimated  owning  and  opertaing  costs  for  the  machine. 

* 

* 

X 

X 

X ACCESSED  by; 

X ...DLS- - - - 

X 

x linkages; 
x 

X GVNADM  Common  Area;  GVNDEC  Common  Area;  Arguments:  RRMA,  DRF,  IDNFLG 

* x 
X IDNFLG  - ' MSU ' Design  Play  (1  y>  level  2 dragline  design,  0 =y  level  1 

X EXTERNAL  REFERENCES;  (ADM  Macro) 

X 

R T E ? P I L E M A N A G E R y i...  I B R A R Y I 


X 


X 
X 
X 
X 
X 
X 
X 
X 

•.if 
'Y- 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

/_  % 

/._  X 

X 

,./_  X 

__ /-  X 

X 
X 

X 

- - - X 

X 


X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

X - /- 

X ' ■ 

X B A T A F 1 1...  E S A C C E S S E D t 
X 


special; 


A PPL  I CAT  ION 

F.OLQ _./  S 

/ __ 


( N A M E / P r o s r a m y S u b r o u t i ri  e ? 0 R F u n c t :i.  o n ) 


/ 

.... / ... 

/ 

/ 

/ 


f 

_ / 
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T-i'  7 7 7*HT  -5^  7-^r  -^7  7S 


* 

* SEAMPL.AN  SOFTWARE  DOCUMENT  AT  JON 

& 

% ROUTINE  name:___Hg1E 

* 

* REVISION  CODE? 

jfv 

* LOCATION  / ACCESS  PROCEDURE J _._.1.?.^.L 

* 


level: 

Elm 


author: 
date: 


8-25-79 


* type: 

* r 3 program  rn  subroutine  c 3 function 

* 

% GENERAL  DESCRIPTION t 
.1. 

£ Originally  named  BUCKET.  Together  with  DIG  determines  where  the 

^ bucket  is  to  be  loaded  each  cycle.  BUCKT  determines  if  a load 

...  can  be  obtained  for  each  path.  (Pg.  5-29) 


* ' 

* 

% 

* ACCESSED  BY: 
& DIG 

* 

* LINKAGES « 


* 

* 

* 

* 

* 

* 

t 

% 

t 

* 

* 

% 

t 

* 

t 

% 

t 

* 

t 

* 

* 

* 

t 

>fc 


t % 

% # 

* * 

* % 

Z EXTERNAL  REFERENCES:  # 

t * 

% RTE t FILE  MANAGER r LIBRARY ♦ * 

% % 

% special:  & 

% .... % 

% # 

% % 

% APPLICATION:  < NAME/P  rostram?  Subroutine t OR  Function)  % 

$ NH_  /F  PUTNH^/S  /_  / / # 

# .„/_  /_ /_  / /_  * 

* /„  /..  /_.  /_.  _/...  % 

% % 

% DATA  FILES  ACCESSED:  * 

% % 

% # 
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£££££&£££££&££££&££££££££££££££££££££££££££££££££££££££££££&£££££££££ 

£ 

£ 5EAMPL.AN  SOFTWARE  DOCUMENTATION  LEVEL ? ._.,.. 

* 

£ ROUTINE  NAME  ? BU.LUi AUTHOR  * _..W^_Lar.son. 

* 

Jfc  REVISION  CODE? DATE? 3/29. 

£ 

£ LOCATION  / ACCESS  PROCEDURE? COM . .tJQLEL jC.OKS.'CRDUILQtL AND. J/JKRIZI.CAT IQfL ... 

£ 

£ TYPE? 

* EX  :J  PROGRAM  C 3 SUBROUTINE  C 3 FUNCTION 

£ 

£ GENERAL  DESCRIPTION? 

£ 

£ CONVERTS  Type  3 files  to  Type  2 files  for  core  hole  analysis. 

& 

* 

& 

& 

* 

* 

£ ACCESSED  BY? 

% 

£ LINKAGES? 

£ 

£ 

% 

£ 

£ EXTERNAL  REFERENCES? 

£ 


£ 

£ 

£ 

£ 

RTF*  FILE  MANAGER?  LIBRARY 
-CLOSE.  ...CRIE 1 ...GREAT_  (.RIE). 

..WRITE  (RTE.1-.  

* 

<r 

„EXECXRTE) 

„.QPEN.(RXE.).... 

._  JREADE  4RTE) 

£ 

£ 

£ 

SPECIAL? 

* 

£ 

£ 

A P P LIGATION?  < NAME/P  rod  re 

hi?  Sub  routs 

nei  OR  Funct 

ion  > 

£ 

J1LAHK. / ,J3  /_ 

- - / 

/_ 



£ 

/_.  /_. 

/_. 

/_ 

/ ... 

£ 

/ / 

/ ... 

/„ 

/... 

£ 

/ /.. 

/„ 

/_.. 

./._ 

£ 

/„  /_. 

/„ 

/.„ 

/_ 

£ 

% DATA  FILES  ACCESSED? 

% 

% £ 
£££££££££££££££££££££££££££££££££££££££££££££££££££££££££££££££££££££ 
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X X X X X X 


*:  x X X X X X X X X * X X X XXX  X X X X X X X X X X X X X X X X * X X t * X X X X X X X X * X X X X x X * X X X t X X X X X X X X X x x 
X X 

* S E A M P I A N 8 0 F T W A R E B 0 C 1.1  M E N T A T X 0 N I E U F I.  .i * 

X 

X R 0 I I T T N E N A M IX  t .CFINZ A U T H 0 R J Elm :! 

He 

R E VTSX  0 N C 0 Ii  (."■  j ^ D A T Ei - X 

X 

I ORATION  / ACCESS  PROCEDURE  : - &CFINZ.  ./ .......... 


type: 

X r 1 P R O G R A M l"x  :i  8 U B R 0 1 1 T T N E 1“  1 F I J N C J 1 0 N 

X 

X GENERAL  DESCRIPTION:  • 

X 

X 

x 

x 

X 

X 

X 

X 

X ACCESSED  by: 

* ADH(ADMl) 

* 

x linkages: 
x 

X SVNCFA  Common  block. 

X 

X 

X F X T F R N A L R E E E R E N C E S l 
X 

X p T (■••  r E 1 1 . E M A N A G Hi'  R » I.  I B R A R Y : 

X ...  CO.OE (Sys) SPOLU(llb) 

X 

X 

x special: 

x 


* 

A PPL J CAT TON: 

< N A M E / P r o s 

ram ? Sub  rout i 

n e v OR  Eu net ion) 

X 

X 

/ 

/ .... 

/ 

/ 

X 

X 

/ 

....  / . 

/... 

X 

X 

_/.... 

./.. 

/... 

/... 

r 

X 

X 

.. / ... 

./... 

/ 

/ 

/ 

X 

X 

/... 

/.. 

./.. 

/ 

/ 

/ 

X 

X 

X 

X 

D A T A F 1 1...  E S A C C E S S E D 1 

X 

X 

. . #.V NCFA  . .. . 

X 

X 

X 

X 

X 

XX  XX  X X.  X X X X X * X *:  X X X X X * X X X X X X X X X XX  XX  X X X X X X X x x X X X;  X X X x X X X X X £ X Y Y Y T X X Y X Y * X X X 
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X X -X  X X X X X X X X X X-  X X X X X X X X X X X X X X X X X X X 


X 1 x X X X X X X X X X X X X X X X X X:  X X X X X X X X X X X X X X X X X X t X X x;  X X X X X X X X X X X X X X X X X X X X X X X X X.  X X 
X X: 

x s e a m p i a n s o r t w a r e n n c u m e n t a t :r  o n i . e u e l ; ? # 

x x 

X R 0 U T I N E N A M E t CHS A U T FI 0 R t Elm X 

X X 

x revision  code: date: 7../WJ9. x 

x x 

X 1.0 C A T 1 0 N / A C C E S S P R 0 C E D l J R E : ...&.CHS ..../.CRD., .. .ADM.;  RV. ,.  SPLA.N). X 

X X 

x type:  x 

x \:  :i  program  rx::i  subroutine  r :.i  function  x 

X X 

X GENERAL  DESCRIPTION:  X 

X 

X The  CHS  routine  evaluates  the  FLOUR  UTAH  ADM  Coal  Local  and  Hand  Macro 

X 

X Model. 

X 
* 

X 
X 


X ACCESSED  by: 

X ...ADM 

* 

x linkages: 

* 

X CHS  Common  Block  (Blank) 

X: 

* 

X E X T E R N A I...  R E F E R E N C E S:  plays. 

X 

R T E , F I L.  E M A N A G E R , 1.1  B R A R Y J 
..  CODE  (RTF)... 


X 

X 

X 

X 

X 

X 

X 

X 

X 


Arguments:  LFEC,  LFLP  - Logical  Units  LOGCH,LOGEC  - Model  option  selection' 


special: 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

AP PI.  I CAT I on: 

< N A M E / P r o a r * m ? 

S i i b r a u t 

ine*  OR  Function) 

X 

X 

/ 

_/... 

- 

... 

/ 

X 

X 

/... 

...  / 

/ ... 

_ / ... 

... 

/... 

X 

X 

... /... 

/ 

/... 

/.. 

/.. 

X 

X 

/... 

. / 

/ 

.... 

/... 

X< 

X 

/... 

/ 

/... 

/... 

/.. 

X 

X 

X DATA  EIL.ES  ACCESSED  i 

X ...FLECR.G 

* 

X 


X 

X 

* 

X 

X 
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* & * ¥: 


* 

X 

* 

* 

* 

X 

* 

* 

X 

X 

X 

% 

X 

X 

t 

% 

X 

t 

X 

X 

X 

X 

X 

X 

X 

X 

X 

t 

X 

X 

X 

X 

X 

X 

X 

X 

X 


SEAMPLAN  SOFTWARE  DOCUMENT  AT. TOM 


ROUTINE  NAME ♦ _.  JCMP.Z. 


LEVEL 


AUTHOR  ♦ JEliD.. 


REVISION  CODEC 


LOCATION  / ACCESS  PROCEDURE 


DATE 


.mm. 


TYPE  t 

c .1 


PROGRAM 


CX  1 SUBROUTINE 


T 1 FUNCTION 


GENERAL  DESCRIPTION i 


CMP7  uses  dragline  stripping  design  geometry  parameters  to  compute 
reference  points  for  casting  diagram  construction  and  load  them  in  PTARR 


ACCESSED  BYJ 
DIAGR 

linkages: 

COMMON  - 


Tektronix,  Ml  COM,  M2C0M,  and  DIAGR  Blocks. 


EXTERNAL  REFERENCES  X 


RTF.*  FILE  MANAGER y LIBRARY? 


SPECIAL 


X 

X 

X 

X 

X 

X 

X 

t 

X 

O' 

X 

X 

* 

t 

X 

X 

X 

X 

t 

X 

X 

X 

t 

t 

X 

X 

X 

X 

X 

X 

& 

X 

X 

X 

X 

X 

X 

X 

X 


Subroutine v 


Function ) 
/_ 


OR  Function)  X 

X 
X 
X 
X 
X 
X 
X 
X 
X 

X X 


APPLICATION:  < NAME/P  ro<3  ram* 

/.. 

DATA  FILES  ACCESSED: 
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/{\  ,{<  ,{\  4;\  Y /{\  Y 4'  X 4 ' 4'  V 4'  Y Y Y 4'  Y 1'  4'  'V'  '4  Y Y V-  4'  4'  4-  Y 4'  4'  44  \4  4 - 4V  4'  44  44  44  4'  44  4 - 4‘-  4'  4'  '{4  /)\  44  44  44  Y 4.  Y 44  /[■.  ,{(  /{\  44  4'.  M ,{\  4.  44  )y  4-.  /['.  4s 

t Y 

* s E A M P I..  A N S 0 F T W A R E D G C U M E N "I  A T 1 0 N I...  E V E L I - ...$ _ * 

Y Y 

Y R 0 U T I N E N A M E : £!*STR _ _ ...  A U T H 0 R J - Elm 

* * 

* R E V I S 1 0 N C 0 D E t . „ ..  - - - ..  D A T E : 1/3.0/11 Y 

X X 

X L G C A T I G N / A C C E 8 S P R 0 C E D U R E t & CNSTE. - - - 

Y X 

x type:  y 

* i:  ::i  program  r: x:;i  subroutine  r:  ::i  function  y 

Y X 

>;<  GENERAL  DESCRIPTION!  CNSTR  is  called  after  the  selected  model  has  been  Y 

X , Y 

5fc  evaluated  to  translate  infeasibilities  detected  into  response  codes.  Y 

Y % 

% RSPON  is  called  to  communiate  the  feasibility  states  to  the  user.  Y 

Y % 

% X 

Y 44 

Y X 

Y ACCESSED  BYJ  Y 

$ _ P.IT.QN _ ANALY _ Y 

X X 

Y LINKAGES:  COMMON  - Tektronix,  MODI,  M0D2  blocks,  Y 

X X 

X Arguments  - NIC,  the  number  of  inequality  contraints.  Y 

Y Y 

X % 

% E:  X T E R N A L R E E L R E N C E S *.  Y 

X X 

Y RTEy  FILE  MANAGER  y LIBRARY  I Y 

Y ...  .ERAS.E..CT.CS.). HOME  (ICS.) _....TINP1(.TC.S)  * 

X _ Y 

X Y 

X X 

x special:  x 

x x 

x x 

X X 

X A F:’  E !..  I C A T I (!)  N : < N A M E.  / F:’  r o X r a m y S 1.1  b r o '..1 1 :i.  n s y 0 R F u n c t .i  a n ) X 

X ... .RSPQN /S.  /._.  /....  X 

Y / / /_.  /.„  .../._  X 

% X 

X DATA  FILES  ACCESSED:  X 

X ... X 

X ..._ X 

X X 

YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYyYYYYYYYYYYYYYYYYYYYYY 
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•$* 


* * * 5fC  * * ****  * ********  * * * ***  * * * ****  * * * * * * * * * * * * * ****  * * * * * * * * * * * * * * * * * * * * 


* * 

* s FT  A M p I . A M S 0 F T W A R E D 0 C U M E N T A T T ON  ! . E V E I...  t * 

* * 

* R 0 ! I T I N E N A M E 5 .. . .^.TR9 A U T 1 1 0 R J Lehman  * 

* * 

* revision  code r. date; PJ1.L19. * 

* * 

* I 0 C A T 1 0 N / A C C E S S P R 0 C E DU R E J &.CNTRG  Jile „ „ ....  * 

* Y * 

* type;  * 

* rx'i  program  r :i  subroutine  r:  1 function  * 

* * 

* GENERAL  DESCRIPTION?  * 

* * 

* Initializes  parameters  and  draws  frame  for  contour  plots;  calls  # 

* * 

■E  grid  contouring  subroutine. 

* * 

* & 

* * 

* * 

* ACCESSED  BY?  * 

* TOED ETQP.CL - — * 

* * 

* I INK AGES?  * 

* * 
Swapped  by  TOPO  and  PTOPO;  retrieves  common  from  disc. 


SPECIAL  ? 
T.CS 


APPLICATION? 

PLTCN / S 

/... 

/ 


DSP. 


* 

* E X T E R N A I...  R E E E R E N C E S ? 

* 

* R T E ? F 1 1...  E M A N A G E R » I . I B R A R Y ? 

* EXEC EMP.AR 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* D A T A F 1 1.  E S A C C E S S E D ; 

* 

* ...: 

* 

************************************************************** 


< N A M E / P r o b r a m ? S u b r a u t i n e ? 0 R F '. ) n c-  t i o n ) 

OUTLN-./S  / / 

.„./ / / 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

/....  * 

/...  | 

/..  * 

* 

'X 

* 

* 

* 

* * * * * * * 


. /. 
./. 
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^ * 


# 

# SEAMPl.AN  SOFTWARE  DOCUMENTATION  LEVEL  l L 

* 

* ROUTINE  NAMEJ-.-CNTUR AUTHOR l M.--E§XJtfiD. 

% 

* REVISION  CODEt DATE t 8/ 3/7.5 

* 

* LOCATION  / ACCESS  PROCEDURE: MTA^ENTRY.... AND . .R.EY.I F,W 

t 


* 

* 

* 

„_.  * 

* 

% 

# 

* 

* 


* type:  * 

* r 3 PROGRAM  r.Xl  SUBROUTINE  C 3 FUNCTION  # 

* X 

t GENERAL  DESCRIPTION:  # 

t % 

% This  routine  is  used  to  draw  the  files  created  by  CONCN.  These  are  t 

X<  continuous  data  files.  # 

t * 

& t 

t t 

% t 

% & 

* ACCESSED  BY:  * 

* ...CONOR # 

t X 

x linkages:  * 

t % 

% ITEK,  COMMON  BLOCK  from  Program  CONDR  # 

* X 

X X 


X 

X 

X 


X 

% 

t 

t 

* 


EXTERNAL  REFERENCES: 


RTF ? FILE  MANAGER ? LIBRARY 


DATA  FILES  ACCESSED: 


t 

% 

X 


t 

ANMOD  (TCS) 

HOME  (TCS) 

„...2.CLPI.....CS..y.S) 

t 

X 

__  CHSIZ_  ( TCS) 

MOVE A (TCS) 

X 

% 

X 

...PASHA  /TCS) 

..  MOVRL....CTCSJ 

_ 

— 



t 

X 

X 

is 

special: 

% 

if 



— 

„ 



— 

# 

¥ 

* 

application: 

( NAME/P  roM  ram  r Sub  rout  i ne  r 

OR  Function) 

¥ 

¥ 

x 

MAP 10  / S 

/... 

/.. 

/_ 

/„ 

* 

X 

-r-  • 

_/... 

/_. 

/.. 

/_ 

# 

% 

/._ 

/_ 

/.._ 

/ 

/... 

>K 

X 

/.... 

/_ 

/_ 

/.. 

, . ....  MM  M>.  ^ / M. 

A 

# 

/„. 

/... 

/_ 

/... 

/_ 

* 

X 

X 

X 

X 

X 


XXX%XXXXX%t.%%XXXX%XXXXX%XXX%XX%%%%XXXX%XXXXXX%%%XXX%XXXXX%XXXXXX%XXX% 
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X X * t X X 1 X X X X t X X X X X X X X X X X X X X X X X X Y * X X X X X X X % X X t X X X 1 X X X.  X 1 X X X X X 1 X X X t X X t X X X X 


EUR..  t X 


C :.l  FUNCTION 


* ft  f:  a M P I . A N ft  0 F T W A R F D 0 C UM  E N T A T T 0 N 
X 

X R 0 l.j  T J N E N A M E i C0DER 

X 

X R E U I 8 1. 0 N C 0 D F.  J ...™ - - 

X 

X I 0 C A T I 0 N / A C C E S ft  P R 0 C E DU  R E ? .&.C0DI:R. 

* 

X TYPE  ? 

x r ;i  program  r:x:i  subroutine 

X 

X GENERAL  DESCRIPTIONS 
X 

X Performs  real  to  integer  and  integer  to  real  transformations  on 

X 

X grid  data. 

X 

X 

X 

X 


CSEDO 


* ACCESSED  BY ? 

X ..  CSEDT 

* 

X I INK AGES ? 

X 

X Two  arguments  are  passed. 

X 

X 

X F X T E R N A L R E F F R E N C E S ? 

X 

X R T F.  r F I !. . E M A N A G F R » I J B R A R Y ? 

X 

X 

X 

X 


CSEOT 


t 

AUTHOR  i Conner.s... X 

DATE?  UW2 X 

X 

X 

X 
X 
X 
X 
X 
X 
X. 
X 
X 
X 
X 
X 
X 
X 

X 

X 
X 

Jr 

X 


X. 

X 

X 

X 

X 

....  X 

....  X 

X 


X 

J/ 

SPECIAL : 

% 

•J- 

X 

X 

. - - 



- 



- - 

•V- 

X 

% 

X 

ARAL I CAT ION? 

( N A M E / F*  r o & r a 

: in  i Sub roi.it  n 

na  ? OF?  E unci,  I 

o n ) 

X 

X 

/ 

/... 

/.. 

% 

X 

/ 



/ 

X 

X 

_ / 

/... 

/ 

/... 

X 

& 

V/ 

/ 

/ 

/... 

/ 



X 

■;y 

-T1- 

X 

X 

X 

DATA  FILES  ACCESS 

ED? 

X 

X 

X 

X 

X 

X 

Jr 

X x X X X XXXX  X X X X X X X 'X  X X X X X t X X $ X X X X X X X X X X X X X X >fc  % X % % * X X X X X X $ X X $ X X X X X X X X X X XX 
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££&££££££££££££££££££££££££££££££££££££££££££££££££££££££££££££££££££ 
£ £ 

# SEAMPLAN  SOFTWARE  0001.1  OF  NT  AT  TON  LEVEL* A 

£ ROUTINE  NAME :..._.  99^ AUTHOR  t Wagner 

* 

* revision  code: date: &12H3. 

% 

£ LOCATION  / ACCESS  PROCEDURE X MA..EmY„M.MIIW 

£ 

£ type: 

* rXl  PROGRAM  r.  3 SUBROUTINE  IT.  3 FUNCTION 

£ 

* GENERAL  DESCRIPTION: 

£ 

This  Program  is  designed  to  input  continuous  DATA  from  the  digitizing 


£ 

£ 

£ tablet. 

£ 

£ 

£ 

£ 

* ACCESSED  BY l 

£ .„DGINT 

ft 

£ linkages: 

* 

£ IPRM 

£ 

* 

£ EXTERNAL  REFERENCES  t 


£ 

* 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

* 

* 

£ 

£ 

£ 

£ 


RTF?  FILE  MANAGER ? LIBRARY: 

..  ANMQD. . ..( TQS)  ... ..CLO SE  .(RTE )..  ..EXEC. „( RTE)._ 

..  BELL. ..(TCS) .ONEPT.GlTAB.LT)  _.CBSIZ„„ (.T.C.S.) 

..IN  ITT.  ..(ICS)  .....OPEN (RTE)..  ...P.Q.S.NI.....(RI.E) 

WRITF  (RTE)  READF  (RTE) 

special: 


application: 

„..COJiD.R. / JP 

...UPDAT /..S 

..SCALE /S. 

..SQ.UAR „/SL 


< NAME/P  ro<3  ram  ? Subroutine?  OR  Function) 


_ * 
£ 

..  £ 
£ 

„.  £ 
£ 
£ 
£ 
* 
£ 
£ 
£ 
£ 
£ 
£ 
% 
% 
% 
% 
£ 
% 

£ 

% 

£ 

% 

% 

£ 

% 

£ 

£ 

_.  JDS  EC.  ..(SYS.)  ..MO.VAB...(TC.S)..  £ 

....ERASE. ITC.S.)  ..HOME... (TCS.)...  * 

... .IBIET.....(ZTABLT)  ..PURGE ... (RTE).  £ 

A 

£ 

* 

£ 
£ 

.../._  £ 

..../._  £ 

._/..  * 

£ 


/„. 

/_ 

/.. 


* DATA  FILES  ACCESSED: 


£ £ 
£££££££££ £££££££££££££££££££££££££££££££££££££££££££££££ £££££££££££££ 
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. 


J 


■ 

' 


* * 

X SE AMP LAN  SOFTWARE  DOCUMENTATION  LEVEL! „..A * 

X X 

X ROUTINE  NAME ! _.„  CONOR .„  AUTHOR: M._.  Wagner., # 

X X 

% REVISION  code:... date: 8/2/ Z9_ x 

X % 

X LOCATION  / ACCESS  PROCEDURE: DATA  ENTRY. AND-  REVIEW. * 

% % 

% type:  % 

% r X1  PROGRAM  r :i  SUBROUTINE  C 1 FUNCTION  * 

X X 

X GENERAL  DESCRIPTION:  X 

X * 

X This  Program  Draws  the  continuous  data  from  the  files  built  by  CONCN  t 

X X 

X X 

X X 

X X 

X X 

X X 


X ACCESSED  dy: 

X ...CONCN_ 

X 

x linkages: 

X 
X 
X 
X 
X 
X 
X 


IPRM,  XTEK,  COMMON  BLOC  FROM  CONCN. 


EXTERNAL  REFERENCES : 


RTE v FILE  MANAGER ? LIBRARY! 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


& 

_ _ANMOD  _£TCS) 

CHSIZ  (TCS) 

DRAWA  ....(TCS  ) 

D.SHAB (ICS.) 

...  J(L0AT  ...(.T.CS)  * 

X 

_b|l£  jCTCS)^ 

...CLOSE  __(RTE) 

....MWAB....(TCS) 

EM.SE.1TCS.) 

_ JU).CRV.....(.T_CS.)  & 

X 

„dS(Tc__(SY_S) 

DASHA  ..(TCS) 

DRWRL  (.TCS) 

EXEC.......(RI£) 

...  ..R0ME.....X.T.CS.)  X 

X 

IN ITT  (TCS) 

MOVRL  "(TCS) 

TINPT  (SYS) 

MOVAB  (TCS) 

RMPAR  (SYS)  X 

X 

X 

X 

— 

VCRSR  (TCS) 

MOVEA  (TCS) 

SWNDO  (TCS) 

VWNDO  (TCS)  '4c 
X 

X 

X 

APPLICATION! 

( NAME/Pro<3ram ? Subroutine » 

OR  Functi 

X 

on)  X 

X 

CNTUR  _ / S 

/.._ 



/ ife 

X 

_MAP  IO_ /S 

/._. 

/._ 

/„ 

/..  X 

X 

/_ 

/... 

_/_ 

/.. 

._./...  X 

X 

./.. 

/.... 

....... /. . 

../... 

/._  * 

X 

/„. 

/.„ 

/ 

/ 

/...  4c 

X # 

* DATA  FILES  ACCESSED!  X 

X X 
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*•  -X-  *5-  -X  X-  X-  -X  X-  *r  «■  -X'  X -X-  X X X -x-  X X x -*••  -x-  X- 


# t 

% SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL. t 2 * 

X'  t 

# routine  name: —CORE author: JEJ.m # 

# * 

* revision  code: date: 3J.ZVJ3. % 

% t 

* LOCATION  / ACCESS  PROCEDURE: * 

t % 

% type:  % 

% cX.1  PROGRAM  r 3 SUBROUTINE  C 3 FUNCTION  * 

% ■ % 
% GENERAL  DESCRIPTION:  % 

% % 

# CORE  is  the  core  hole  data  analysis  executive  program.  As  such,  it  % 

% interacts  with  the  user  and  calls  correlation  or  cross-section  analysis  % 

% routines  depending  on  his  choice.  % 

t t. 

# % 

% % 

% % 

% ACCESSED  BY:  * 

% ..DENJRU * 

& % 

% l.  INK  ages:  % 

& % 

% None  >5C 

% % 

% 

EXTERNAL  REFERENCES:  >* 

£ 

RTE f FILE  MANAGER t LIBRARY:  # 

CHSIZjKS)  „„EXEC..(RTEi  _ JJJJI JJLQS ) „ NEWPG__(ICSJ  # 


# 


# 

special:  * 

.SWAP * 

t 

APPLICATION:  ( NAME/P ro3 ram ? Subroutine?  OR  Function)  * 

* 

DATA  FILES  ACCESSED:  * 

>K 


* 
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■ 


■ 


$£  *!?  -5 £ -5* 


X t X XXXXXXX  1 X X X X X X X X & X X X X X t X X t X X ft####*#####  X >:<  £ £ £ X X X 1 1 X XXX  t XXXXXXXXX 


X X 

t SEAM  PL.  AN  SOFTWARE  DOCUMENTATION  LEVEL  t 3. _„ * 

X X 

X ROUTINE  NAME : COREL AUTHOR ♦ * 

X * 

* revision  code: date: 1L ZSL # 

* X 

* LOCATION  / ACCESS  PROCEDURE : ....MIA„EN.TRY..AND.JLE.VJilW X 

X X 

t type:  x 

X r XI  PROGRAM  T 1 SUBROUTINE  C 3 FUNCTION  X 

X X 

X GENERAL  DESCRIPTION!  # 

X X 

X Correlate  test  hole  parameter  beds  by  using  graphs  plotted  & 

X X 

X from  concentration  values.  X 

X X 

X t 

X X 

X X 

X ACCESSED  by:  Run  COREL  * 

X X 

x linkages:  x 

X X 


X X 

X ITEK,  COMMON  BLOCK  * 

nJ/  %V 


X EXTERNAL  REFERENCES:  X 

# X 

t rte?  file  manager » library:  x 

X ..BLANK C%KAEMP)  _EXEC.(RTEJ_  _ _ INITI.CTCS)..  X 

x „Qi§iZ.LT_cs). hom_e(tcs3 _ openk(^™mp)  X 

X ..CLOSK.(%MFMR)  IDS EG„"( SY S)_  * 

X 

special:  t 

x 

APPLICATION:  ( NAME/ProsfraRi  y Sub  rout  int?  r OR  Function)  X 

.RXRYL /?.  / /..  X 

_GRFJ /£  /_.  /_  /.„  /._  & 

X 

DATA  FILES  ACCESSED:  X 

X 

X 


xxxxtxxtxxxxxxxxtxxxtxtxxxxtxtxxtxxxxxtxxxxxxxxxxxtxtxxxxxxxxxxxxxtx 
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X X X X X X X * X X * X X X X X X X * X X X X X X X X X X X X X X X X X X x X X X X X t X X X X X X X X X X X X X X X X * X X X X X 


* 

* S E A M p I...  A N S 0 F T W A R E D G C U M E N T A T 1 0 N L E 0 E I...  i .? 

| G l. J T I N!  E N A M E i - £?.L _ A LJ  T H 0 R : E lm 

R E V I S .1 0 N C 0 D E ? D A T E J _ 7.  /19/.7.9 

I...  0 C A T 1 0 N / A C C E B S P R 0 C E D U R E ♦ .&  CPF. _ 

TYPE  ? 

r :i  p r o g r a m r:  x:i  s u b r o u t i n e i:  :i  f u n c t :i:  o n 


GENERAL  DESCRIPTION  5 

FLUOR  UTAH  ADM  Coal  preparation  plant  model  evaluation  and  output 
routine . 


ACCESSED  BY  ? 

ADM 


X 
X 
X 
X 
X 
X 
X 
% 

X 

% E X T E R N A !...  R E F'  E R E N C E S i 
% 


LINKAGES? 

CPF  Common  Block  Arguments:  LFEC , LFLP  - Logical  Units 

LOBSDjLOGEC  - Model  selection  flags, 


X 

RTF. •/  FILE  MA 

NACER v LIBRARY? 

X 

CODE(RTE) 

X 

X 

X 

X 

SPEC  I At...  ? 

X 

X 

X 

X 

APPLICATION? 

( NAME/P  roar s in  ? 

S u b r o u t 

X 

/ 

/ 

X 

/.... 

/ 

/.. 

X 

X 

/ 

X 

/... 

/.... 




X 

X DATA  FILES  ACCESSED? 

X FLEC.RG 

X _ 

X 


X 

X 

X 

./...  X 
% 

./_  x 

./...  X 

./_  X 
X 
X 

X 

X 

X 


34 


•5’c  ¥h  ¥r  ¥:  ¥:  -H'  ¥r  t.:t  tt  ¥r  ¥■  ¥ ¥:  ¥ ¥r  ■¥■  ¥■  tv  ¥-  ¥■  ¥ ¥r  tV  -.-T  tv  ¥r  t-t  ¥? 


. 


■ 


ft*************  * * XXX  * ****  * X * X X ****  * X * * i<  X X X :!<  * XXXXXX  X X % t X %.  X % % x % % % % X ;«  % X * X 


LEVEL.: 

AIJTMOR : .Lehman  _ 

DATE : 6/l/79_  __ 
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CX]  SUBROUTINE 


r:  :i  function 


* 

* SEAMF’LAN  SOFTWARE  DOCUMENTATION 
% 

X ROUTINE  NAME?  _.„CRAMR 

* 

X REVISION  CODEJ_.Ai.O 

X 

X LOCATION  / ACCESS  PROCEDURE; &PTLOT 

* 

t type: 

X r 1 PROGRAM 
X 

X GENERAL  DESCRIPTION; 

X 

){<.  Solves  a pair  of  simultaneous  linear  equations  useing  Cramer’s  rule. 

X 

X 

X 

X 

X 

X 

X ACCESSED  BY: 

* „PTLOT.. 

* 

* linkages; 

ylr 

£ Arguments  include  coefficients  of  the  lines,  returns  coordinates 

X 

X of  interesting  point. 

X E X T E R N A L R E F E R E N C E S J 

* RTE  ? FILE  MANAGER?  LIBRARY: 

X 
X 
X 
X 
X 
X 


X 

vj/ 

is 

'l' 

* 

* 

X 


X 

X 

X 

X 

X 

it 

rT- 

X 

\Ss 

X 


special; 


A P P L I C A l 1 0 N : ( N A M E / P r o a r a m ? S u b r o ' j t i n e ? 0 R F u n c t i o n ) 


X 

X 

X 


X 


./ 


* 


/ - 


/ 


A 


/ 

— / ~ 


/ 


„A 


% DATA  FILES  ACCESSED: 


■4/ 

•*1^ 

X 

X 


X 

■it  is  is  it  i-  is  ■is  is  '}-■  is  i'  -is  is  -i-  is  \|/  is  is  if  it  if  is  it  is  if  is  if  i ■■  is  is  is  i-  is  is  is  is  if  if  it  is  is  is  is  is  is  is  is  is  if  -is  Jf  ■ is  is  is  i-  is  is  is  is  is  i, 

nr-  a*  A'  -t>  t-  a-  a-  't-  -v-  -f-  a-  4*  a-  a-  -v-  a-  A-  a*  a'  a-  a-  a-  a*-  a-  nr-  A-  a*  A-  A'  a-  A'  A'  A'  a-  n-  A--  a-  ■r*  A-  a^  a'  a*  A'  a'  n>  a-  -a*  nr-  a*  A'  A'  A'  A'  v-  A' A'  A'  A-  i 
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i 

. 


' 


*ii:c  -Mr  -%•  *^* 


X X X X X X X X X * * X X X X X * % X He  * X X 1 X X X X X * * X X X X X X X X X X X X X X X X t X HC  X X X X X X 1 1 X X X He  X X X He  X X X 


* 

•H<  S E A M P I...  A N S 0 F T W A R E D 0 C U M E N I A T 1 0 N I. . E V E I...  X 

He 

X ROUT  1 NE  NAME  X CROSS AUTI I OR  X Lehman  

X 

X R E V 3:  S 1 0 N C 0 D E X ...  1-  D A T E X „ 6/1/ 79 

■He 

He  L 0 C A T 1 0 N / A C C E S S P R 0 C E D U R E X &?TLQT  11.. 

He 

He  TYPE  X 

x c :j  program  l*:\  subroutine  r i function 

G E.N  E A L D E S C R I P T 1 0 N t 

Draws  a 4 roster  unit  cross  at  user  specified  location. 


He 

H< 

He 

X 

He  ACCESSED  BY  X 

X PILOT _ 

X 

X LINKAGES  X 
He 

>j<  Arguments  include  the  virtual  coordinates  of  the  location  of  the  cross. 


X 

He 

X 

H< 

X 

X 

X 


X 

X 

X 

t 

He 

$ 

He 

He 

H< 

X 

X 


He 


t He 

X EXTERNAL  REFERENCES : % 

X He 

He  RTF  y FILE  MANAGER  ? LIBRARY  X He 

He  _ _ He 

He  „ „... He 

% He 

He  He 

He  SPECIAL  X X 

X _..TCS ___ _ He 

He  He 

X X 

H A P P L 31 C A T 1 0 N 3 ( N A M E / 1::'  r o s r a m y S u b r o u t :i.  n e v 0 R !:r  u n c t i o n ) 

He  I 

X DATA  FILES  ACCESSED*  X 

X He 

He  He 

X X 


^^HeHHeYHHHHHeHeHHeHHeHeHeYHeHHHHHHHeHHHH  YHYHeHHHeYHHHeHHHHeHHYHeHeHeHHHHeHeHeHeHHHeHeYHeHHeHHe 
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££  & tX-  r-T  & -X-  -X 


■ 


is 


_ 


. 


m . 


■ 


N 


X X X X X X X X X X X X X X X X X X X X t X X X X X X X X X X X X X X X X X X X X X X t X X X X X X X X X X X X X X X X X X X X X X X X • 
X X 

X S E A M P I.  AN  S 0 F T W A R F D 0 C U M E N T A T 1 0 N I . F V F I.  t , t 

X X 

X R 0 1.  J T I N E N A M E t pSDRW A l.J  T H 0 R J Conners 

X ' X 

X R F U I S T 0 N C 0 D F I ...  h Q D A T F l .. 6/1/7 9 *: 

X X 

X LOCATION  / ACCESS  PROCEDURE  i &CSDRW __ X 

X X 

x type:  x 

* rx  i program  r.  :.i  subroutine  r:  :j  function  x 

X X 

X GENERAL.  DESCRIPTION:  ■ X 

X X 

v<  Draws  a cross  - section  on  the  CRT  or  plotter.  % 

X X 

X X 

X X 

X X 

X X 

X x 

X ACCESSED  BYt  X 

X .CSEDO _ x 

X X 

x linkages:  x 

x x 

X Retrieves  common  from  system  available  memory.  £ 

X X 

X X 

X F X T F R N A L R E F F.  FL:  F N C E S I X 

X X 

X R T F J F 1 1. . F M A N A G E R ? I . I B R A R Y i X 

X ...EXEC 'f' 

X t 

X X 

x special:  * 

X .T.C.S * 

X X 

X A F'  F;'  i ..  I C A T 1 0 N : ( N A rl  E / F'  r o a r-  a m ? S ; b r o u t i n e ? 0 F:'  Fr  i.  f n e t i o n ) X 

X / ..../ /....  / /..  X 

X / / / / X 

X / / / / / ...  X 

X / / .../ /...  X 

X X 

X DATA  FILES  ACCESSED:  X 

X ' * 

x : x 

X X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXtXXXXXXXXXXtXXXXtXtXXXXXX X 
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Y Y * Y * Y Y t Y Y * * * He  Hi  % * Y Hi  He  Y Hi  H<  Hi  Hi  He  Hi  Hi  H<  He  Hi  Hi  Hi  Hi  Hi  Hi  Hi  Y H<  Hi  Hi  Hi  Hi  Hi  H<  Hi  Hi  Hi  He  Y Hi  H:  He  He  He  H<  He  Hi  Y Y Hi  Hi  Hi  Hi  H : H : Y Hi  Hi 


Hi  Hi 

Hi  SFAMPI  AN  SOFTWARE  DOCUMENTATION  I.FWFL? H< 

Hi  H< 

He  RG(  I T T NE  NAME  J ....  CSKDO AUTHOR  t Conners # 

Hi  Hi 

Hi  RENTS  TON  CODE  ? 1.0 DATE  i 6/1/79 * 

Hi  Hi 

H<  LOCATION  / ACCESS  PROCEDURE? &CSEDp  .file % 

Hi  Hi 

Hi  TYPE  t Hi 

Hi  nx:i  program  r :i  subroutine  r ::i  function  h< 

Hi  Hi 

Hi  GENERAL  DESCRIPTION?  ' * 

Hi  Hi 

Hi  Hi 

Hi  Hi 

H<  H< 

Hi  Hi 

Hi  Hi 


He 

Hi 

Hi 

Hi 

H: 

Hi 

Hi 

Hi 

Hi 

Y 

H: 

Hi 


Hi 


ACC 


BY 


CSEDT 


INK AGES 


EXTERNA!..  REFERENCES 


Hi 

Hi 

Hi 

Hi 

Hi 

Hi 

Hi 

He 


Y 

R T F f F I L E M A N A G E R , 1 I B R A R Y ? 

Hi 

Y 

. ..RMPAR 

EXEC 

Y 

Y 

Y 

Hi 

Y 

Y 

Y 

SPECIAL? 

Y 

Y 

Y 

TCS 

IDS  EG 

...SWAP. 

Y 

Y 

Y 

Y 

% 

Y 

A PR LI CAT ION 

? ( N A fi  E / P r o a a m ? 

S Li  b r o u t i ri  e ? 

OR  Funct  :i.  on  ) 

% 

Y 

. C.SDRW /?. 

CODER.../ S 

/ 

/.. 

% 

Y 

/ 

/ 

/ 

/.. 

/ 

% 

Y 

_./.... 

/ 

/ 

........ / 

/"... 

% 

Y 

/.... 

/ 

/ 

/ 

% 

Y 

/ 

/ 

/ 

/... 

% 

Y 

% 

Y 

DATA  FILES  ACC 

ESSED  ? 

% 

Y 

% 

Y 

i 

Hi 


Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y 
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% * ******** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 


EUR  ? 


r:  :i  function 


* 

* S F A M P I A N S 0 F T U A R F 1: 0 C l J M E N T A T T 0 N 

* 

* ROUTINE  name:  .....csed.t  

* 

* REVISION  CODE  ’1.0 

* 

* LOCATION  / ACCESS  PROCEDURE J & CSEDT 

* 

* TYPE; 

* f X I PROGRAM  r sure out inf 

* 

* G E N E E A I.  D E S C R I P T 1 0 N ? 

* 

* Executive  routine  for  cross  section  display  and  edit. 

* 

* 

* 

* 

* 

* 

* ACCESSED  BY? 

* ...DENRV  

* 

* LINKAGES ? 

* 

* Scheduled  by  DENRV;  no  parameters 

* 

* 

* E X T E R N A i...  R E E E R E N C E S ? 

* 

* R T E ? E 1 1.  E M A N A G E R * I.I  B R A R Y ? 

* EXEC - - - 

* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

A l.l  T H 0 R ? C onner.s * 

* 

DATE? .6  /1/  79. * 

* 

* 

* 

* 


SPEC  I A!...? 

TCS 


SPOLU 


SWAP 


* 

* 

APPLICAT ION? 

CSEDO  /P 

( NAME. /Prog 

CSEOT  / P 

r-  a r«  ? 8 1. 1 h r o 1. 1 1 i n e ? 

CODER  / S 

OR’  Eunct  i on  > 
/ 

/ 

* 

/.. 

/ 

/ 

/ 

/... 

* 



/... 

/ 

/ 

/... 

* 

/„. 

/.. 

/... 

/ 

/. 

* 

/ ... 

/.... 

/ 

/ 



* DATA  FILES  ACCESSED? 

vj/  GRIDS 

* 

* 


********************************************************************* 
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-3*  ¥:  ¥:  ¥-  & 5*r  §$  ¥:  & -X-  $$  X-  Xr  -X  X X X -X-  X -X-  X X X X X 


?AT  54  54  54  ^ S ^ ^ s ^ ^ ^ * 54  ^ 5ir  ^ 54  54  54  54  54  54  54  54  54  54  55  54  54  54  54  54  54  54  54  -54  54  54  54  54  54  54 


X X % X % X X * X X X * X X X X % X X X X X X * X X X X % X X X X X X X ;{<  X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 
X X 

X S F A M P I A N S 0 F T '0  A R F D 0 C I J M E N T A T T 0 N I . F U F !...  i X 

X :.-. 

X R 0 U T I N E N A M E ’ CSE0T A U T H 0 R ♦ Conners * 

X 

REV  T.  S I ON  CODE  : .l*..0. - „ DATE  i ftLl/Jl X 

X 

LOCATION  / ACCESS  PROCEDURE  : £5? EOT * 

X 

type:  * 

ix :i  program  r:  ::i  subroutine  r :i  function  x 

X 

GENERAL  DESCRIPTION l X 

Writes  edited  grid  data  to  new  disc  file. 


ACCESSED  BY: 

...CS.ED.T - 

I.  INK  ages: 

Retrieves  common  from  disc. 


E X T F R N A !...  R E F F R E N C E S i 

R T F ? F I L E M A N A G E R * LI B R A R Y : 

...EXEC RMPAR 


SPEC  I A I... : 
..T.CS _ 


SEOLU. 


A P P I..  I C A T 1 0 N : ( N A H E / F:'  r o 0 r a m ? Su b r o 1. 1 1 i r'i e ? 0 R F i. ! n c t i o ri ) 


..UEDAT /S  CODER /.S 

/ /.. 


/.... 

/... 


/ /... 

/ /... 


BATA  FILES  ACCESSED: 

GRID 


* - 

X 

XX^XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'XXXXXX 


40 


T-b  54  5 4 -54  M lb  lb  54  -54  -54  lb  55  lb  11  lb  -54  lb  lb  lb  lb  lb  lb  11  lb  54  54  54  -54  54  54  lb  5=4  54  54  54  54  54  54 


T*  >-r 


I.  EVEL : % 

Y 

AUTHOR  * Conners Y 

* 

DATE  t 6/.1/7.9 * 

% 


% % % % * '«  * * * * * t % * t * * t * * * 1 1 * t * * % % 1 1 1 1 % 1 1 1 * * * * % % % t % % % * 1 1 1 1 % % * t * * * * * * 1 1 * * Y * 

Y 

S F A M P l A N S n f T 1,1  A R F D 0 f:  y M I"  N T A T I G N 

Y 

* ROUTINE  NAME:  ...CS3DD 

Y 

* REVISION  CODE: 1. 0 

* 

* I 0 C A T I ON  / A C C E S S P R 0 0 E D l J R E i & QS 3DD 

Y 

* type: 

t r;x:i  program  r:  :i  subroutine 

* 

* G E N E R A L D E S C R I P T 1 0 N ! 

Y 

Draws  three  ~ dimensional  cross  sections  of  grid  data 


f 1 FUNCTION 


t 
i< 

* 

# 

% 

* 

% 

% ACCESSED  by: 

* ,J).  M _ 

Y 

* linkages: 

* 

% Scheduled  by  DRVED;  receives  no  parameters. 

% 

% 

% E X T E R N A L R E F E R E N C E S ♦ 

% 

% R T E r F 1 1...  E M A N A G E R , I I B R A R Y i 

* RMPAR 

* 

* 

Y 
* 

% 

Y 


special: 

TCS 


SPOLU 


AP Pi.  I CAT  I ON 


( N A H E / P r o St  r a m ? S i.  \ b r o u t :i  n ? 0 R F u n c t i o n ) 


* 

PLT3D  / S FRAM  1 / S 

ROGRD  /S 

% 

t 

/ /.. 

/ 

/ . 

/ 

% 

% 

% 

% 

/ / 

/ .... 

/ .... 

% 

% 

/ / 

/... 

/ 

/.. 

* 

% 

% 

% 

DATA  FILES  ACCESSED: 

% 

% 

GRID 

% 

% 

% 

% 
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& DATA  File 


DATA  controls  the  input,  updating  and  displaying  of  the  simulation 
Data . 


* 

# 

* 


# % 

* SEAM  PL  AM  SOFTWARE  DOCUMENTATION  LEVEL  ? .A * 

^ tt  A T A ti  -i  'A 

* routine  name: - author: iJ! # 

)fc  )fc 

* REVISION  CODE ? ..„ DATE? 

% 

* LOCATION  / ACCESS  PROCEDURE  ?_., 

* 

* TYPE? 

* T 1 PROGRAM  fX]  SUBROUTINE  C T FUNCTION 

* 

* GENERAL  DESCRIPTION? 

* 

* 

& 

# 

* 


% 

* 

% 

* 

t 

* 

% 

t 

% 

# 


% 


EXTERNAL  REFERENCES? 


* ACCESSED  BY? 

$ EXDBX? 

t 

t LINKAGES? 

# 

* 

% 

% 
t 
t 
* 
t 
* 

% 

% 

>v 

* 

* 

* 

# 


RTF » 

ERASE 


m 


MANAGERS-  LIBRARY 


SPECIAL 


APPLICATION: 
DSRCE  / S 


(NAME/Prodrsm ? Subroutine?  OR  Function) 


OPSEQ/S 


...  _UP CAS  /S_ 


_ __  UPFLG___/S 

.„/_ 


UPSET.  / S 


$ 
t 
# 
# 
# 

% 


DATA  FILES  ACCESSED? 


# 

* 

i< 

% 

% 

t 

t 


% 

>x 

\V 

•P 

# 

t 

£ 

& 

t 

# 

t 

A 

# 

* 

* 

* 

t 

$ 

* 

* 

:* 
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■ 


- 


.... 


*** * x x x x x x x x * t X X X X X * X X X X X X X t X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 
X % 

% 
% 
X 

x. 
% 
% 


LEVEL: 

AUTHOR  { Elm 

DATE  J 7/19/79 


□CATION  / ACCESS  PROCEDURE i File&DBE/ selected... from. A.DMVI _ * 


r:  :.i  function 


X S E A M P ! . A N S 0 F T W A R E D 0 C U M E N T A T T 0 N 
* 

X ROUTINE  NAME J P.B? 

* 

X REVISION  CODE? 

X 
X 
X 

x type: 

x r i p p o c r a m r:  x::i  s u b r o i j t j n e 

x 

X G E N E R A !...  D F S C R I P T T 0 N i 
X 

% DBE  Is  the  Flour  Utah  ADM  model  drilling  and  blasting  macro  model. 

X 

X 

X 

X ^ 

X 

X 

X ACCESSED  by: 

# ADM 

X 

X I.  ink  ages: 

X 

# Logical  units  and  subsystem  selection  plays  LFEC,  LFLP , LOGDB , LOGEC, 
X 

X passed  on  arguments.  DBE  Common  Block  also  used. 

X E X T E P N A i...  R E F E R E N C E S t 
X 

X R T f ■ ? F XL E M A N A G E R ? I . I B R A R Y : 

# CODE  (RTF) 

X .... _. 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
% 

% 3D  A T A F 1 1. . E S A C C E S S E D i 

# F.LECRG 

X 

X 


* 

X 

X 

X 

X 

X 


SPECIAL : 


application: 

..A. 

/ 


( N A M E / F'  r o S r a m ? S u b r o u t i n e ? 0 R F:' 1. 1 n c t :i  o ri ) 


X 

X 

/...  X 

X 

/..  X 

/..  X 

X 

X 

X 

X 

X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxttxxxxxxxxxxxxxxxx 
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Figure 


D*BE  Characteristics 


54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54 


t >;<  £ & X % t £ $ £ X * X % % % & % % % % t X & & tttX  >’<  t £ * & t X X t X & & 1 1 X X X 1 X X X X X X XXXX  X X XXXXXXXXXX 


X * 

X SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL! Z * 

X X 

X ROUTINE  NAME ! PJMY. AUTHOR* ! _._.£lm * 

X X 

* REVISION  CODE! r»ATE:_._ .8/23/73 * 

X X 

X L.OCAT  I ON  / ACCESS  PROCEDURE! MEMV_.Jj.le. # 

X X 

X TYPE!  * 

* CX  .1  PROGRAM  E 1 SUBROUTINE  C 3 FUNCTION  * 

X X 

X GENERAL  DESCRIPTION!  * 

X X 

^ DENRV  is  the  data  entry  and  review  module  executive.  It  places  ^ 

* a menu  on  the  screen,  and  schedule  (swaps)  the  appropriate  program 

t based  on  user  selection.  X 

X X 

X * 

* X 

X * 

* ACCESSED  BY!  * 

* -8P.LAN — * 

X X 

* LINKAGES!  & 


X 

X 

X 

X 

X 


None 


EXTERNAL.  REFERENCES! 


>?c 

* 

* 

X 

t 


X 

X 

& 

X 

X 

* 

X 

X 

X 

X 


X 

RTE t FILE  MANAGER t LIBRARY!  # 


„_.ANMaO...(.ICS) 

-.-.IQUAI-jtl.CS) 

,.£t ISIlJpXS) 
...-jMEUP.e_tl.CS) 

ERASE-..(JXS ) ...  ..EXEC-jR-TE)- 

S.EQLU._CS.YS)  

LN.ITI_..(.XCS ) * 

SPECIAL! 

sTf 

A* 

X 

X 


APPLICATION!  (NAME/Pro^ram?  Subroutine*  OR  Function)  & 

X X 

X DATA  FILES  ACCESSED!  * 

X X 


xxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


44 


‘ 


■ 


. !'  ■'] 


' 


■ 


‘ 


. 


ZZZ  * £ * % t * t & & £ & % * ZttttZZZZttZZZ  % t >!<  ZZZ  & >!<  t % «:*:£>!;  1 1 * t 1 £ & & * Z Z t Z Z Z Z Z & £ * * & Z Z 


% % 

% SEAMPI...AN  SOFTWARE  DOCUMENTATION  LEVEL  *, _.„.?. * 

Z Z 

Z ROUTINE  NAME  t JLGINT.  _ AUTHOR  l “•„  Wagner * 

Z Z 

Z REVISION  code:.... date: S flJ.7.9. t 

Z Z 

* LOCATION  / ACCESS  PROCEDURE:. _PATA  ENTRY. _ # 

* Z 

z type:  # 

Z 1x3  PROGRAM  r.  3 SUBROUTINE  E 3 FUNCTION  # 

Z , Z 

Z GENERAL  DESCRIPTION:  * 

# Z 

t DGINT  CONTROLS  THE  SWAPPING  TO  THE  CORRECT  DIGITIZING  ROUTINE.  #' 

# * 

Z Z 


* 

* 

Z 

Z 

Z 

Z 

Z 

Z 

Z 

Z 

Z 

Z 

Z 

Z 

Z 

* 


ACCESSED  BY: 

....DENRV 

linkages: 

IPRM 

EXTERNAL  REFERENCES  t 

RTFs-  FILE  MANAGER v LIBRARY: 


..ANMOD. -(..TCS) 
CHSIZ  (TCS) 


, EXEC..  .(RIP)... 


Z 

z 

z 

z 

Z 

«»/ 

/ii 

t 

z 

Z 

Z 

z 

z 

z 

z 

Z 


% 

NEWPG  (TCS) 

Z 

% 

% 

% 

special: 

% 

% 

... ... .. . ._. .... .... ... .... .. 

,,,,  w MM  ...  ... 

..  . „„  „r.  ,L|.  M„  ....  k«m.  « «. 

. _ _ 

.... .... ...  .... 

z 

% 







d- 

% 

Z 

% 

application: 

( N A h E / P r o 3 r a m * 

Subroutine*  OR 

Furicti  on ) 

t 

% 

CONCN  / P 

, /_ 

/ 

/ 

_/... 

Z 

% 

RNDIS  / P 





__/ 

Z 

% 

PTDTA  / P 

/_ 

/ 

/__  

../... 

% 

% 

/„. 

/ 



/... 

% 

% 

/... 

/„. 

/._  

/.. 

/._ 

% 

% 

% 

% 

DATA  FILES  ACCESSED: 

z 

% 

% 

% 

% 

# 


Z 


$ & Z & % % A A A A'  t t Z A Z Z $ A & Z Z Z Z Z 1 1 Z Z Z & A Z Z * Z Z Z t tZZZ  A'  A 1 Z ZZZZ  Z Z Z Z % % Z % Z Z Z * ZZZZZ  Z Z 
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' 


. 

' 


a & 


% t * % % i<  * * # * X X * X X X X X X *:  X XXXX  X % X X X X X X * * X X X X * X X X X * X X X X X X Y ;{<  Y Y Y X X X * Y Y Y Y Y Y X X 
X >!< 

Y 8 E A M P I...  A N S 0 F T W A R E D 0 0 IJ  M E N I A T 1 0 N I. . E V E I...  J 3 * 

X , :f. 

■ ROUTINE  NAME t DIAG? . AUTHOR t Eljn ! 

Y Y 

* R E V I S 1 0 N C 0 D E : ... Jj  A T E i .7/30/. 7 9. 

Y 

Y L 0 C A T 1 0 N / A C 0 E S S P R 0 C E .0  U R E l ..&DIAGR. _ - _ 

Y 

Y TYPE t 

x i:  ;j  program  I. x :i  subroutine  i:  ::i  function 

* 

Y (3  E N E R A I...  D E S C R I P 1 1 0 N l 
X 

X DIAGR  manages  the  production  of  casting  diagrams. 

Y 

Y 


ACCESSED  BY i 

...  P.IT.QN ..ANALY .. 

Y LINKAGES  * COMMON  - Tektronix,  1 pass  (MODI)  and  2 pass  (MOD2)  blocks; 

Y 

* Casting  Diagram  Graphics  blocks. 

Y 
% 

Y E X T E R N A I...  R E F E R E N C E 3 t 
>K 

Y R T E » F I !...  E M A N A G E R t !...  I B R A R Y i 

Y FINX.TCT.CS). 

Y 

Y 

* 

* special: 

y 

y 

y 

Y A P P I...  I C A T 1 0 N I < N A M E / P r a s r a m ? S u b r o u t i n e ? 0 R F u n c t i o n ) 


Y CMPT , ...S  DSGNC. / S DRIVPL  S 

% Y 

Y DATA  FILES  ACCESSED  t Y 

Y : Y 

Y _ Y 

Y Y 


YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY yyy 
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w ri-ir  ->*■  & %$■  3*  ■$<  -&  Ar  & v-ir  -j*  ¥:  *r  -J*  -)£  «•.  X -:fr  X:  & & & 


**  $$  & •>£  -•>$  $$  -X-  % •?$  -X-  -53-  «•  ?$  £?  •54  -X*  34  34  34  34  34  34  34  34  34  •«•  34  34  34  34  34  34  34  34  $4  3*  34.  3*  34  #. 


SEAMPl.AN  SOFTWARE  DOCUMENTATION  LEVEL.: 4t 

ROUTINE  NAME:...  PIG AUTHOR  J ..„Elm 

REV  I S I ON  CODE  l DATE  J 8-25-79 

LOCATION  / ACCESS  PROCEDURE  J 

type: 

r.  1 PROGRAM  C Xl  SUBROUTINE  I 3 FUNCTION 

GENERAL  DESCRIPTION: 

DIG  sets  up  a procedure  for  each  operation  involving  overburden 
removal  to  remove  the  necessary  volume.  It  does  the  removal  in 
layers. 


* 

* 

*< 

# 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

t 

t 


% 

t 

t 

% 

ACCESSED  BYt  % 

„„.obr * 

t 

linkages:  * 

% 

t 

t 


EXTERNAL  REFERENCES : 

RTF f FILE  MANAGER » LIBRARY: 


special: 


APPLICATION:  (NAME/ProsSram?  Subroutiner  OR  Function) 


DATA  FILES  ACCESSED: 


>5; 

* 

$ 

£ 

t 

& 

$ 

* 

# 

% 

* 


__BPWR  /S 

BUCKT_/  S 

/ 

/_ 

/_ 

% 

/.. 

/._ 

/.. 



/.. 

# 

/ 

/.. 

/ 

/ 

t 

* 

/ 

__ /_. 

/ 



/.. 



_./... 

„/... 

% 

if- 

* 

) ’ 
* 


47 
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* X X X X X * X X X X X X X X X X X X X X X X X X X X X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 


S E A M P I A N S 0 F T W A R E D 0 C : I. .!  M E N T A T I 0 N I E V E I i 

R G U T T N E N A M E t . ...DLIN.Z A U T H 0 R l Elm 

r e u i s i o n c o n e : _ ._ n a t f : 71 16.129 

I . G C A T I 0 N / ACC  E S S 1“'  R 0 C E D I. J R E i &DLINZ  

type:  : 

r:  .i  p r o g r a m r:x  ;j  s i j p r n u t i n e r:  i f u n c t t g n 

GENERAL  OF  SCR  X PT  X ON  t 

Initializes  dragline  parameter  Common  area,  G UNDEC,  by  reading 
//DRAG. 


ACCESSED  PYJ 
. ADM.(ADMF.)  ... 


L INKAGES  t 

G VNDEC  Common  block 


EXTERNAL.  REFERENCES  t 

R T E » F 1 1...  E M A N A G E R ? I . I B R A R Y J 

„COpE SPOLU 

_ J 

SPECIAL; 


X 

X 

X 

X 

X 

X 

X 

._ X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

x. 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 


APPI..T  CAT  IONS 

( N A M E / P r o A r a m ? 

Sub  rout i no ? 

0 R F 1. 1 n c:  t,  i o n ) 

X 

/ 

/ 

/ 

/....  X 

/... 

/ 

/ 

/ 

/..  X 

_/ / / /...  X 

X / _ /_.  / /...  X 


/ 

/ 

/ 

/ 

/...  X 

X 


DATA  FILES  ACCESSED ' 

..//DRAG 


X 

X 

X 

X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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7^-7  ~fx~ 


t # * % * % % % ''<  * % % * * * He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  H<  He  He  He  1 He  He  He  He  He  He  He  He  He  H : He  He  He  * He  He  He  He 


He  He 

He  SE  A M P L A N S 0 F T W A R E D 0 C U M E N T A T 1 0 N I...  E V E L ? 2 


He 


He  i i 0 U T :i:  i 4 E N A M E ? ...  DLS. A U T I -1 1.)  R ? Elm ...  . 

He  He 

He  R E U X S 1 0 N C 0 D E t - ... D A T E t 1.1.2 Q 1.2. 9_ He 

He  He 

He  LOCATION  / ACCESS  PROCEDURE  I &B.LS...  / ...RVN  „ ADM; RV, SPLAN... % 

He  He 

He  TYPE  i He 

He  r.  ::i  program  r:.x:i  subroutine  r:  :\  function  * 

% % 

He  GENERAL.  DESCRIPTION  ? % 

% ' He 

$ DLS  is  the  Macro  or  1st  level  dragline  model.  Equations  are  evaluated 

% He 

H<  which  estimates  required  dragline  size  and  costs.  And  output  save  in 

He  He 

% a summary  table.  If  the  2nd  level  routines  were  used  to  interactively 

He  He 

% design  a dragline,  sizing  equation  in  BTDL  and  are  bypassed,  however. 

He  ACCESSED  BY  i % 

% ADM % 

He  He 

LINKAGES t He 

He  He 

He  GVNADM  (ADM  General  ) Common  Block  and  GVNDEC  (Dragline  subsystems) 

He  He 

He  Common  Block  Arguments:  RNDNFLG-  Design  play  passed  from  ADM  LFEC-  Support 

He  EXTERNAL  FiEF"ERENCES  ? equipment  option  play  LOGDL  - Dragline  subsystem  selection 
He  play.  He 

He  RTE  ? FII..E  MANAGER , LIBRARY?  He 

t ...CODE. (RTE) He 

He  He 

He  He 

H<  He 

He  SPECIAL.  % % 

% % 

He  He 

He  . He 

He  A P I...  I C A T 1 0 N I < N A M E / P r o L r a m y S ti  b r o '•„!  t i n e ? 0 R F“  u n c t i a n "> 

Hi  ...BTDL „./..S  / / /...  He 

He  / / ../ He 

He  / /.._  ...A-  He 

H<  He 

He  DATA  FILES  ACCESSED?  He 

He  .FLECRG : 

H<  Y 

Y He 


YH;YYYYYYYYHeYYYYYHeHiYYH#HiYYYYYYYYYYHeYHeHeYYHeYHeHiHeYYYYYYYYYYYYH:YYYHeYYYYHeYH-  He 
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T'C  ¥:  -?x-  -5'r  r~T  -34  -$4  -5?:  -J4  34  -4  34  34 


>:;  Hi  5|C  He  t Hi  Y 1 Y Hi  * Y * % # Y Y Y Y * Y Y Y Y Y * * Y Y Y Y Y Y He  Y He  He  He  He  * He  He  He  He  He  He  He  H<  He  He  He  Y He  He  He  He  He  >!e  He  He  H<  He  HeH  { {e  H ' 

He 

S E A M P I...  A N S 0 F T W A R E D 0 C IJ  M E N T A T 1 0 N I...  E V E i... ! ....  2 

R 0 U T '.I'.  N E A A i i E :) PLS  2 A U T ! 1 0 R i Elm 

r e v i s :i:  o n c o n e : d a t e j 7/20/ 7.9 

L 0 C A T 1 0 N / A C C E S S P R 0 C E D U R E t &PLS  2 . RV ... a.dm.; ....  RV  ...S.PLAN _ 


TYPE : 

r.  :i  p r o 6 e a m r.  x 3 % u b 1 0 u r 1 n.  t:  i;  ::i  r u n c t :t:  0 n 

general  description i 

DLS2  interfaces  the  2nd  level  dragline  models'  with  the  ADM  dragline 
subsystem  by  converting  shared  common  block  variables  before  and  after 

Hi  interactive  dragline  designs,  and  by  calling  P1TON,  the  2nd  level 

* 

Hi  design  executive. 

$ ACCESSED  BY l 

Hi  ADM  III 

H< 

H<  | INK  AGES*  GVNADM  and  GUNDEC  - FLUOR  ADM  Common  Areas. 

$ 

H<  MICOM  & MLCOM  - one  and  2 pass  2nd  level  model  common  block. 


H< 

Y 

Y 
% 

Y 
He 
* 

Y 
Hi 
* 
Hi 
Hi 

Y 


I X T E R N A !...  R E F E R E N C E S J 

R T E v F I !...  E H A N A G E R , L I B R A R Y ! 


special: 


DATA  FILES  ACCESSED! 


Hi 

H< 

Hi 

Hi 

Y 

Hi 

Hi 


Y 

A PPL I CAT  ION! 

( N A M E / P r o s r s m ? 

S u b r o u t i n e » 

OF?  Function ) 

Y 

Y 

PI TON  / S 

/... 

../ 

/ 

.. / ....  

Y 

Hi 



/ 

/ 

Hi 

Y 

/._. 

...../ 

/ 

i 

i 

i 

i 

i 

1 

! 

! 

! 

1 

! 

! 

! 

! 

....  / ...  Y 

Hi 

/ 

/ 

f 

/ 

/ 

....  / ....  Y 

Y 

.../.... 



/.... 

/ 

_..  / ....  Y 

Hi 
H-i 
Hi 
Hi 
Hi 

*H;YYYYYYYYYYYYYYYYY  YY YYYY Y YYYYYY YYYYYYYY YYY Y Y YYYYYYYYYY Y YYY YYY Y Y Y Y YY  Y 


Hi 

Y 

Y 

Y 
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¥:  & 


X X X X t X X X X X X X X X X * X X * X X X X X X 1 X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 
S E A M P I . A N S 0 F T W A R E D 0 C U M E N T A T I 0 N L.  E V E i...  5 3 

* 

X ROUTINE  NAME:... 

* 

X REVISION  code: 

* 


DMO  DS 


* LOCATION 


i;X:i  SUBROUTINE 


r:  :i  function 


special: 


author: ......E..lm. x 

D A T E J „8/6/ 79  _ # 

X 

A C C E S S P R 0 C E D U R E t JfPMQDS  ._ _ X 

X 
X 
X 
X 
X 

‘.u 
❖ 

* 

* 

X 

X 

X 

X 

X 

X 

..  X 

% 

X 

X 

X 

X 

X 

X 

X 

X 

..  X 
..  * 
. X 
* 
$ 

. $ 

. X 
X 


x type: 

■X  r:  :j  program 
x 

X G E N FI  R A L.  D E S C R I P 1 1 0 N : 

X 

% Selects  proper  dragline  model  and  calls  it  (MODI  or  M0D2) 

X 

X 

X 

X 

X 

X 

* ACCESSED  BY: 

# MODI  PITDP 

X 

X I..  INKAGES  t Arguments  ZMOD,  ZCODE;  Model  selection  and  evaluation  codes, 

X 

X 

X 

X 

X E X T E R N A !...  R E F E R E N C E S i 
X 

X R T E 7 F I !...  E M A N A G E R ? 1. 1 B R A R Y { 

X-  

X . 

X _ 

X 
X 
X 
X 
X 


X 

application: 

(NAME/P rod 

v a m y S u b r o u t i n e ■> 

0 R F i.i  n c t ,i  o n ) 

% 

X 

MODI /s 

MOD  2 / s 

_/ 

..  

X 

* 

/ 

/ 

../... 

/ 



X 

X 



/_.. 



/ 

/... 

X 

X 

/ 



/ 

/ 

/ 

X 

X 

y 

/ 

/ 

/_ 



X 

X 


X D A T A F I L E S A C 0 E S S E D { 

* __  

x 1 x 
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££  ^ 


' 


Xr  J£  JL  Jr  ^ ^ ^ Jr  Jr  J$-  Jr  -Jr  Jr  Jr  -Jr  Jr  Jr  Jf  J£  Jr  J$  Jr  Jr  K-  Jr  JJ  JL  JJ  Jr  Jf  Jr  Jr  J£  J£  Jr  Jr  -X-  Jr  Jr  JS-  J<-  J=-  jc  54  J$  jc  ^ 


*•  * * x X X X X X X t X X X X X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X *:  X X X X X x X X X X X X X X X X X X X X X X 

X 

$ F.  A M p I.  AN  S 0 F T W A R E D 0 C U M F N T A T I ON  I . F U E I ...  i X 

ROUT  T NE  NAME  4. DMPFL AUTHOR  l Lehman 

r e o i s i o n c o n f : ,.A*.P. D a t i:::  : ,6./ Wl 

I ORATION  / ACCESS  PROCEDURE  J &LlIPFL..f  ile „. 

type: 

rx:i  program  r :.i  subroutine  r:  ;i  function 

G F N F R A I D E S C R I P TION l 

Displays  the  content  of  a grid  or  X,Y,Z  file  on  the  line  printer. 


ACCESSED  BY: 

DENRV 


linkages: 


F X T F R N A !...  R E F F R E N C E S 1 

R T F - F 1 1...  F.  H A N A G F R , I . I B R A R Y : 
RMPAR 


SPECIAL : 

TCS  SPOLU  OTSPL 


APPLICATION- 

( N A ri  E / P r o Y r l m ? 

S li  b r o u t :i 

ne?  UR  Funot-:i  on  ) 

X 

_./.... 

/ 

/.. 

/ 

.... 

/ 

X 

/ 

/ 

/.. 

/_.. 

/... 

X 

/ 

_ / 

/.. 

./ 

_../... 

X 

/... 

/ 

.....  / .. 



X 

/.. 

/ 

...... /... 

/ 

/ 

X 

X 


D A T A F I ! . E S A C C E S S E D : X 

X,Y,Z GRID _ x 

X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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J (r  J£  Jr  J*  Jr  *r  Jr  Jr  Jr  J*  JS-  Jr  Jt  J5-  & Jr  J!r  J£  J?-  JL  Jr  Jr  Jt  Jr  -J6  J£  J*  J*  J4  Jr  J*  J$  Jr  Jt  Jr  Jr  Jfr 


¥:  ■»  •?$  -54  -»  -56  *$•  $$•  -X-  -JS-  $*  •?$.  -X*  $*  & & 


LEVEL  t 3 

AUTHOR J _ Elm 

DATE  J §^23/79 


# SEAM PL AN  SOFTWARE  DOCUMENTATION 

* 

* ROUTINE  NAME: PPFIO 

% 

* REVISION  code: 

% 

t LOCATION  / ACCESS  PROCEDURE: _Jldp™.. 

t 

% type: 

# C 3 PROGRAM  Cx3  SUBROUTINE 

t 

# GENERAL  DESCRIPTION: 
t 

Reads  //MINE  file  to  obtain  observed  overburden  depths  (DPTTH) 
and  coal  seam  thicknesses  for  Dynamic  Programming  optim  atar. 

Also,  writes  out  optimal  widths  to  //MINE  following  D.P.  conclusion. 


T 3 FUNCTION 


t 

# ACCESSED  BY! 


* 


FLEX 


* linkages: 

* 

$ COMMON  - IFCOM,  Ml  COM,  M2C0M,  DPC0M1  Blocks 

* ARGUMENTS  - ICODE  (real/write  code) 

EXTERNAL  REFERENCES: 

RTF?  FILE  MANAGER  ? LIBRARY l 

CLDFL(%DAM)  DFNFL(_%DAFMP  _ _DREAD  (,%P_AFMP  ) DWRIT { %DAFMP  ) 


SPECIAL; 


APPLICATION: 


% 

* 

% 

* 

% 

% 

* 

... # 

* 

* 

% 

% 

* 


% 

% 

% 

% 

t 

% 

% 

% 

% 

% 

% 

% 

* 

% 

% 

% 

vV 

* 

\V 

% 

% 

% 

* 

# 


< NAHE/Pro^rsn ? Subroutine?  OR  Function) 


/„ 


$ 

/_.  * 


* 
% 
* 
% 

t & >K  t<  t $ X & 1 1 1 1 $ >!<  & A A * % t t A >7  % % t & t & & # # A & & t t t t % 55;  t & t >!<  >!<  i<  t t % A 1 1 1 >K  & t A >K  Y t * * £ £ # # % 


DATA „ F I LES  ACCESSED t 
#MINE 
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k 


i 


X X X X * X X X X X X X X X x x X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X x X X X X X X X X X X 


X 

X S E A M P !...  A N S 0 F T W A R E D 0 C U M E N T A T 1 0 N I...  E V E I...  5 

X 

X R 0 li  T I N E N A M I PPLOT _ A U T 1 1 0 R t _ ...  .Lehman.. 

* 

X R E V I S 1 0 N C Cl  D E J ...  1.  • 0„ D A T E l hllilSL 

X 


X I. . 0 C A T 1 0 N / A C C E S S P R 0 C E D LJ  R E \ ... j&DPLQT. ...;. X .7. 

X 

x type; 

x r.  x :j  program  c :i  subroutine  r:  :j  function 

X 

X G E N E R A I...  D E S C R I P T 1 0 N J 
X 

X Searches  the  grid  files  in  using  the  current  pit  layout  as  a mask 

>K 

to  determine  overburden  depths  and  coal  seam  thickness. 

* 

* 

X 

X 

X ACCESSED  BY  t 

X ...ptlot ....  

X 

X LINKAGES'; 

* 

Uses  PTOPO  common. 

X 

X 

X E X T E R N A 1...  R E F E R E N C E S J 
* 

X RTE  v FILE  MANAGER  v LIBRARY  ?> 

£ RMPAR  EXEC 

X 

X 

X 

x special: 

* ....  SPOLU SWAP .MEM? 

X 

X 

X A P P I. . I C A T 1 0 N l (.  N A M E / P r o b r s m v S u b r o u t .i.  n e y 0 R F u n c 1 1 o n ) 


X 

/._ 

/_. 

/ 



/ 

X 

/ 

/ 

- .../.. 

/-. 

- - 

X 

./... 

/ .. 

/__ 

/ ... 

./  ... 

X 

/ 

— / 

/_. 



/._. 



X 



___/_ 

/ 

./._ 

/.. 

X 

X DATA  FILES  ACCESSED i 

X ...GRIDS //MINE 

X 

X 

YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY  X X X-  X 
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•5*  ¥;  ¥:  W ¥:  & ||  ¥;  ¥:  & Y-  K it  -X-  -X  X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 


' 

' 

■ 


% 

* 


I 


# 

X SEANPL.AN  SOFTWARE  DOCUMENTATION 
* 

X ROUTINE  name: .PM9. 

* 

* REVISION  code: 

X 

* LOCATION  / ACCESS  PROCEDURE :__  &_DRAG 

* 

* type: 

* C 3 PROGRAM  EX}  SUBROUTINE 

X 

X GENERAL  DESCRIPTION: 

* 


level: i 

AUTHOR:. -„plm 

date  : .8.:.2_5r.Zl 


r 3 function 


X 

x 

X 

X 

X 

X 

X 

X ACCESSED  by: 


DRAG  sequences  the  simulator  through  the  operations  as  specified 
by  the  operation  data  (5-44). 


EXDRG 

-INKAGES: 

COMMON  - Blank;  M.D.  Labeled  Blocks. 
Arguments  - none. 


X 
X 
X 
X 
X 
X 
X 

x external  references: 

X 

RTE?  FILE  MANAGER ? LIBRARY: 


# 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 


DATE  (sys) 


SPECIAL: 


application: 

BFL  / S 

Z'JZ€@”as 
/._ 


IDENT_  (sys)  _ SPOLU_  (sys)_ 


( NAME/P  rotfrstTi r Subroutine?  OR  Function) 


BNR  /S 


_JNTT/_S 


_MOVE/S 




OBS 


X 

'V' 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

t 

X 

X 

t 

% 

X 

t 

X 

X 

X 

X 

X 

t 

X 


./S  * 
./_  * 


X DATA  FILES  ACCESSED: 

x ijU8>_JjJr,ijL_yj7  

X 

XXXXXXXXXXXXXXXXXXXXXXXXtXXXXXXXXXXXXXXXXXXXXXXXXXXXX-XXXXXXXXXXXXXXXX 


X 

X 

X 

X 

X 

X 

X 
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. 


. 


■ 


X X * X * * Xi  * X X X:  * X X X * X X * * X * X * * * X X X X X X:  X X X-  X X X X X<  X X X<  X X * X:  X X X X X X X X X X Xc  X'  * X X X X:  X * X:  X X 


* X 

X S E A M P L A N S 0 F'  T W A R E D 0 C I ) M E N T A T I 0 N i.  E V E I i 3 _ X 

X X 


X R o 1 .1 T :i:  N E N A M E i J)RAGL A U T H 0 R ? EIni 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

XX 


r e v i s i: o n c o n e x d a t e : 11 3 0/79 

I... □ C A T 1 0 N / A C C E B S P R 0 C E D UR E X ... 

TYPE ? 

t:  :i  PROGRAM  E X ;;t  SUBROUTINE  I"  I!  FUNCTION 


GENERAL  DESCRIPTION.? 

DRAGL  draws  the  dragline  in  either  view  (plan  or  cross-section) , 
excluding  the  tracks  of  feet  in  the  cross-section  view. 

ACCESSED  BY  X 

. DRWPL DRWXS _ 

LINKAGES?  COMMON  - Tektronix,  MODI,  MOD2,  and  DIAGR  Common  Block 

Arguments  - XOFF,  YOFF,  Z VIEW,  SCALE;  offset,  pain  or  cross-section 

play,  and  scale  portion. 

EXTERNAL  REFERENCES t 

R T E < F 1 !...  E M A N A G E R i...  I B R A R Y I 

ANMOD(TCS)  BELL  (TC.S ) DRAWA(TC.S)  DRAWR(DSP)  HOME(TCS) 

MOVEA(TCS)  MOVER (TCS)  . * ' . . . ..  . ' 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

SPECIAL?  X 

_ _ X 

., _ X 

X 

A F’  F‘  I...  I C A T 1 0 f-J  ? ( N A M E / F'  r o s r a m ? S u b r o u t :i.  n e v 0 R F‘  u n c t i a n ) X 


BOOM ,S. 







/„.  X 

X 

/„.  X 

/ 

./.... 

/.... 

../....  X 

/ 

/ 

/ 

/... 

/....  X 

X 

n A T A F 1 1.  E S A C C E S S E D ? X 

.... X 

X 

X 

X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X Y X X X X X X X 
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% % 

* SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL  l t ,.„.  * 

* m 

* ROUTINE  NAME  X QRAHll  AUTHOR: M. ..Wanner, # 

* >}c 

* revision  code: date: &IA/12 # 

X:  # 

* LOCATION  / ACCESS  PROCEDURE: MIA.  ENTRY  AND  ..REVIEW # 

* * 

# type:  # 

# C 3 PROGRAM  L x3  SUBROUTINE  C 3 FUNCTION  * 

# # 

# GENERAL  DESCRIPTION:  * 

# # 

£ This  subroutine  is  designed  to  be  used  by  DIGITIZING  output  routines.  ^ 

$ It  is  designed  to  sketch  an  outline  of  map  in  the  biggest  allowable  ^ 

£ screen  area  whi  1 e not  allowing  any  distortion.  ^ 

# * 

X * 

& & 


* 


* 


* ACCESSED  BY:  # 

$ Digitizing  output  routines.  _ __  ^ 

# & 

t linkages:  & 

>5c  K 

# XMIN,  XMAX,  YMIN,  YMAX,  GRINT,  MXS,  MS,  (as  described  in  the  subroutines)^ 

* # 

* t 


% EXTERNAL  REFERENCES:  * 

t # 

# RTF ? FILE  MANAGER t LIBRARY:  * 

# ANMOD  _..(TCS ) JML  JTCS)  INITT  ^TCS)  _ J^VRL__(TCS)  # 

55c  iiqhsIzixtcs)  :emse.1rte)  i* mov^’jtcs)  rz?^po[.’(Tcs)  :::::: * 

# Z^MllTcs)  ZZZ—Z  „movea1tcs)  1'I™BoI(tcs)  ZZZZZ  # 

% t 

% special:  # 

# & 


% 

application: 

< NAME/P roM ram ? 

Subroutine t 

OR  Function) 

% 

% 

/ 

/_ 

/_ 

. J ...... 

% 

% 

/„. 

/__  

/ 

/_.  

% 

% 

/ 

/... 

/ 

/.. 

% 

% 

/„. 

_ 

/ 

..._/.. 

% 

% 

— "/~ 

/ 

..._/ 

/‘  

% 

% 

% 

% 

DATA  FILES  ACCE 

ssed: 

% 

% 

% 

% 

% 

# A'  * & & A'  ¥ & # t % %- * # Xc  £ & 1 1 % % 1 # t Xc  £ t A $ t # & # * 1 1 & & * & £ & & & % % % % % 
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. 


- S 

.. 


' 


-■ 


-5*  & & 


.11. 


LEVEL  i 

* 

AUTHOR : Lehman .: 

•.»/ 

n-' 

DATE: 6/ 1/7. 3. % 

* 

- - Jfc 

Jfc 
% 
Jfc 


r :.l  FUNCTION 


Jfc  * Jfc  * t Jfc  t Jfc  Jfc  Jfc  * * t * % Jfc  t % t * Jfc  * * Jfc  Jfc  * Jfc  i<  Jfc  % t Jfc  Jfc  * Jfc  Jfc  Jfc Jfc  Jfc  Jfc  Jfc  Jfc  Jfc  Jfc  Jfc  Jfc 1 % Jfc  Jfc  Jfc  Jfc  Jfc  Jfc  Jfc  Jfc  t Jfc  Jfc  Jfc  * Jfc 1 Jfc Jfc  Jfc  :}■: 

* 

* S E A M P I..  A M S 0 F T W A R E D 0 C U H E N T A T 1 0 N 

Jfc 

Jfc  R 0 IJ  T I N E N A M E ? ..IMP. . .. 

Jfc 

Jfc  R E V I S 1 0 N C 0 D E } ...  1.  r. P. 

Jfc 

Y I. . 0 C A T 1 0 N / A C c:  E S S P R 0 C E D IJ  R E J &PJ.LQT. 

Jfc 

* type: 

t L 1 PROGRAM  i.:X  "J  SUBROUTINE 

* 

t G E N E R A I...  D E S C R I P T 1 0 N J 
* 

$ Uses  crosshair  cursors  to  determine  the  pit  design  range:  the 

Jfc 

% distance  from  the  edge  of  the  last  pit  to  be  analyzed. 

Jfc 
Jfc 
Jfc 
* 

Jfc  ACCESSED  BY: 

Jfc  ...  PTLQI...  

* 

t linkages: 

t Arguments  include  the  screen  location  for  text  display;  uses  PTOPT 

Jfc 

% common. 

Jfc  E X T Si'::  R N 1 L R E F E R E N C E S * 

Y 

R T E > F I L E M A N A G E R >=  L.  I B R A R Y : 


special: 

TCS 


A P P I...  i!i  C A T 1 0 N : ( N A M E / F'  r o & p a m ? S u b r o u t i n e y 0 R F u ri  c t .i.  o n ) 


Jfc 

/- 

- - - X •- 

/ 

/ 

Jfc 

Jfc 

/ ... 

/ ... 

/ ... 

/.... 

/ 

a 

Jfc 

/ 

....  / .... 

/_. 



/.... 

Jfc 

Jfc 

./_. 

/_. 



/ 

/._. 

Jfc 

Jfc 

/ 

— .. / .... 

__ 

_/... 

/ .... 

/_. 

Jfc 

* 

* D A T A F Ji  I...  E S A C C E S S E D J 

Jfc  

Jfc  

Jfc 


% 

Jfc 

Jfc 

Jfc 

Jfc 


YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY YYYYYYY tttttt 
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-4 


/ 


* # 

* SEAM  PLAN  SOFTWARE  DOCUMENTATION  LEVEL  : __3 * 

# # 

X<  ROUTINE  NAME ♦ DRSEI AUTHOR t __ .Elm * 

# * 

* REVISION  code: date: 8/9i7„9..._ * 

% # 

* LOCATION  / ACCESS  PROCEDURE: MRS.P1 „ # 

* % 

* type:  * 

* IT  PROGRAM  CX 3 SUBROUTINE  C 3 FUNCTION  # 

* # 

# GENERAL  DESCRIPTION:  t 

£ % 

% Identifies  location  of  individual  cut's  material  in  the  spoil  * 

# pile  (cross  - section)  and  labels.  & 

# * 

>fc  # 

* * 

* >!< 

# * 

* ACCESSED  BY:  * 

* * 

* linkages:  * 

$ COMMON  Tektronix,  Ml  COM,  M2C0M,  and  DIAGR  blocks.  * 

% Arguments  WIDTH,  I CHAR,  WC,CC;  spoil  geometry  parameters  and  t 

>k  identifying  characters  for  the  cut.  % 

% ' % 

* EXTERNAL  REFERENCES:  t 

* # 

* RTEr  FILE  MANAGER y LIBRARY:  * 

* . „_AMD.D-.(.IC.S_)  _.DA5.HR....(ICSJ  TTD.VEA. ..{ICS)  * 

$ >:< 

* special.:  t 

* % 

5k  APPLICATION:  < NAME/P  roSrarro  Subroutine » OR  Function)  * 

t * 

* DATA  FILES  ACCESSED:  * 

# i 
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2*r  'Sr  rKr  rSr  *!f  r-r  r;c  r4  ■?..■$  -5!r  -J£  r-r  ■?<?  -*c  >*r  ■>$• 


* Y * * Y Y * Y * * * * >K  Y * * * * * Y * * * * t Y ;|<  * % % * >!<  * * * * t % % % % % % % % % % % % % % % t : * % % 1 1 * 1 1 1 1 # ;!<  % * t % 

% 

S E A M P I ..  A N S 0 F T W A R E D G C U M EL'  N T A T 1 0 N I. . E V E I...  X ._ 3 . ...  . _. ... % 

% 

I": G U T :r.  t \ E N A M ILL  J DRWP.L A U T ! 1 0 R J Elm 4 


REVISION  code: 


1.0  CAT  I ON 


TYPE : 

IL  LI  PROGRAM 


r.  LI  FUNCTION 


IL  X j SUBROUTINE 
GENERAL  DESCRIPTION: 

DRWPL  manages  the  graphical  portion  of  the  casting  diagram  display 


DATEL. 7./3Q/79 He 

Y 

i C C E S S P R 0 C ILL D UR E ; &DRWPL _. % 

% 
% 
% 
% 
* 
% 
% 
% 
% 
% 
% 
% 
% 
% 

% 

% 
% 
% 
% 
% 
% 
% 
% 
% 


Y ACCESSED  BYL 

# DIAGR 

% 

% LINKAGES*  Tektronix,  1 pass,  2 pass  and  Diagramming  COMMON  BLOCK. 

% 

% 

% 

% 

% E X T E R N A L R E F ILL  R E N C E S I 
% 

R T EL  y F 1 1...  ILL  M A N A G EL  R , 1 . 1 B R A R Y l 

ANMOD(TCS)  . CHSLZ(TCS)  DASHA  (TCS)  DASHR(TCS)  DRAWA(TCS) 

MOVAB(TCS)  MOVE  A (TCS)  SWNDO(TCS)  VWN.DO  (TCS  ). 


DRAWL (TCS) 
' GETLU (DSP 

SPECIAL : 


APR!  I CAT  ION 


C N A H EL  / P r a s r a m ? S u b r o u t 'j.  n e ? 0 R F u ri  c t i o n ) 


>!< 

t 

* 

Y 

% 

% 

% 


% 

DRAGL 

,,S  DRWXS 

S 

EBNCIT  S 

HUB  /S 

ROTAT S 

% 

SHADE 

/S  VERB 

/ 

/ 

/ 

/_.. 

% 

% 

/... 



/ 

/ ... 

T 

% 



_/ 

/ 

/_.. 

/_. 

/.... 

% 

% 

.../ 

/.... 

/ .... 

/ „ 

% 

% 

% 

% 

DATA  FILES 

ACCESSED; 

% 

% 

% 
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t X X X X X X X X X X X X X X X * X X X X X X * X X X X X * X * X * X X X X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X 
X * 

X $ E A M P LAN  S 0 F T W A R F D 0 C U M E N T A T 1 0 N I...  F U F I ..  i 3. * 

X-  % 

: routine:  name : drwxs author: .....Elm >: 

X t 

X R E U I S 1 0 N C 0 r.1  E t ... .... D A T E i .7/30  / 7 9 X 

X X 

X I 0 C A T 1 0 N / A C C E S S P R 0 C E D U R E ! &DRWX.S ...  X 

x<  x 

x type:  * 

x r:  :i  program  subroutine  i:  :i  function  % 

x x 

* G E N E R A I ...  D E S C R I P T 1 0 N X X 

X ' X 

X.  DRWXS  draws  the  cross  section  of  the  casting  diagram.  ;{< 

X X 

X.  X 

X X 

X X 

X X. 

X X 

X ACCESSED  by:  He 

X X 

X LINKAGES  t COMMON  Tektronix,  1 pass  and  2 pass  models  (MODI,  MOD 2)  , X 

X X 

X and  Diagram  Blocks.  Arguments  - WIDE,  SCALE,  Y RANGE  - dimension 

X X 

X variables.  X 

X E X T E R N A i...  R E F E R E N C E S X X 

X X 

X RTF , FILE  MANAGER?  LIBRARY:  X 

X . ANMOD  (TCS) DASHR(TCS)  DRAWA(TCS)  DRAWR(TCS)  DRWRL(TCS) 

X ...  GETLIJ  (DSP) MOV AB.  (TCS)  MOVEA(TCS)  S.WNDO(TCS)  VWXDO  (TCS ) 

X ....... X 

X X 

x special:  * 

X .... „ _ _ _... _ X 

X ..... X 

>;<  x 

X A P P I...  I C A T 1 0 N I ( N A M E / P r o s r s m ? S Li  b r o u t i n e ? 0 R F u n c t i o n ) X 

X ... DRAG  L / S EB.NCH /S HUB . / § TRACK.  .. / S ....  VERB S 

X ..../ - /.. / /....  X 

X X 

X DATA  FILES  ACCESSED!  X 

X X 

X x 

x x 
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3*  ¥:  & & & *$•  •$£  ■5$  5*  -K-  •$$  -X-  ¥: 


% % 

% SEAM  PL  AN  SOFTWARE  DOCUMENTATION  LEVEL  ♦ .3 * 

% % 

% ROUTINE  NAMF : QSGNC. AUTHOR \ £lHL % 

% 

% 

% 

* 

% 
* 
% 


% revision  code: date: — 8/9/75 

% 

% LOCATION  / ACCESS  PROCEDURE J &DS.GN.C 

% 

% type: 

% r 1 PROGRAM  rx  1 SUBROUTINE  r.  T FUNCTION 

* 

# GENERAL  DESCRIPTION: 

& 

)k  DSGNC  produces  verbal  dragline  design  descriptions  to  the  left  of 

Z casting  diagrams  for  DIAGR. 

* 

% 

& 

An 

% 

% 

Z ACCESSED  BY: 

# 

* linkages: 

% COMMON  -Tektronix,  MODI  and  M0D2  and  DIAGR  blocks. 

* 
t 
% 

t EXTERNAL  REFERENCES: 

RTE r FILE  MANAGER t LIBRARY: 

B£LL-iLC.S„)  .CI;ISIZ„XICS)  „.XRA5E...(TC3) 


geilijdspl 


* 

5k 

5k 

5k 

* 

* 

$ 

% 

* 

% 

...  % 
% 
% 
% 
% 
% 
% 
% 
% 
% 


MME.lT.CSl  % 


...  % 

% 

special:  >k 

% 

5k 


A P P L I C A T 1 0 N J ( N A M E / P r o 3 r a n.  * 

Subroutine  9 

OR  Function) 

% 





/_. 

/„  

/... 

5k 

/ 

/ 

/ 

/ 

* 

/„ 

./...  

/... 

/ 

/... 

5k 







/....  

/._ 

5k 

/ 

y — 

-~/ 

/- 

- 

z 

DATA  FILES  ACCESSED: 

4. 

5k 

z 

z 

% 


%%%%%%%%%  t z $ z 5k  >;<  $ t z 5k  )k  z 3k  z z z z 1 4<  zzzz  z % z % z % z z z z % z % t % z zzz  t z % z % % % % % % % %%%%  % t x< 
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•5*  -X-  -X*  -X  ¥t  -X-  -X-  -X  -X"  -X-  -X-  -X-  -x  -X* 


% 

% SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL  ♦ 5. 

% 

% ROUTINE  NAME  i „_P^E^.(1 AUTHOR  i __?.LTi 

* 

* revision  code: date: It 

* 

t LOCATION  / ACCESS  PROCEDURE : __^_?.S„PA? 

* 

% type: 

% r T PROGRAM  TXT  SUBROUTINE  T 3 FUNCTION 

# 

>1:  GENERAL  DESCRIPTION: 

X Displays  parameter  types  and  possible  update  activities  for  the 

X parameter  data. 

% 

* 


% 


% 

* 

* 

* 

# 

* 

* 

* 

* 

% 

* 

* 

* 

* 

# 

* 


* * 

X X 

* >5? 

* ACCESSED  BY:  t 

* X 

% linkages:  * 

% # 

% * 

$ # 

* # 

* EXTERNAL.  REFERENCES:  * 

& $ 

* RTE?  FILE  MANAGER , LIBRARY i * 

* JiQUGXTCS.L  * 

X # 

>•<  t 

t X 

* special:  x 

# 

APPLICATION*  ( NAME/P  rob  rarrtr  Sub  routiner  OR  Function)  X 

DATA  FILES  ACCESSED:  * 

t 


xxttttxxxxtxtxttxtxtxtxtttttttxxzxxxttttxtxxxxttttxxxxttxxxxxxxttxxxt. 
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* t & X' t * & & & t t & & % * >'£  * t * * X £ t t t t & # t & # t a<  t % t t 1 1 & * t X<  X & t $<  % % % % % % %%%%  £ % % % t * t * 


# t 

# SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL ? A * 

t t 

% ROUTINE  NAME ? PSPDS_ AUTHOR  ? * 

# # 

* REVISION  CODE: DATE: §-2_5-79 ...  # 

* * 

* LOCATION  / ACCESS  PROCEDURE: i-DSPDS # 

X;  * 

% TYPE?  X< 

* Cl!  PROGRAM  II X}  SUBROUTINE  t 1 FUNCTION  * 

t X 

* GENERAL  DESCRIPTION?  # 

& # 

* Displays  current  source  assignments  for  various  data  types.  # 

* * 

* & 

t # 

% t 

* * 

t % 

% ACCESSED  BY ? * 

t DSJR.CE & 

% & 

# LINKAGES?  t 

# * 


# 

* 

t 

# EXTERNAL  REFERENCES? 
t 

# RTF?  FILE  MANAGER ? 

# hqme...ct..qsj„_,  


t 

% 

% 

t 

* 


.I.BRARY  ? 


SPECIAL? 


W- 

t 

* 

* 

% 

'% 

% 

% 

% 

* 

# 

* 

* 


% 


& 

t 

t 

% 

t 


APPLICATION?  ( NAME/ProS ram  * Subroutine*  OR  Function) 


t 

/._ 

/„ 

/.. 

/„. 



* 

# 



/__ 

/„ 

/ 



% 

% 

/... 

/_. 

/„ 

/... 

/... 

& 

& 

% 

/ 

/ 

/„ 

/ 

/ 

# 

/._ 

/_. 

/__ 

/.„. 

t 

DATA  FILES  ACCESSED? 


% 

# 

# 
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ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft  ft  ft  ftftftftftftftftftftftftftftftftft 
ft  ft 

LEVEL  I * 

* 

AUTHOR  l Ei™ * 

date: .^-jjp-ll * 


DSPOD 


C 3 FUNCTION 


* SEAMPL.AN  SOFTWARE  DOCUMENTATION 
ft 

ft  ROUTINE  NAME: 
ft 

* REVISION  code: 

ft 

* LOCATION  / ACCESS  PROCEDURE : _._£„DSPOD 
ft 

ft  type: 

ft  C 3 PROGRAM  CX3  SUBROUTINE 

ft 

ft  GENERAL  DESCRIPTION: 
ft 

jj.  Displays  (on  the  CRT)  the  elements  of  a particular  operation  for 

j5,  the  dragline  simulation. 

* 
ft 
ft 
ft 
ft 

ft  ACCESSED  BY: 

OPDUP 


* ....IICEL 

ft 

* linkages: 

* 


ft 

# 

* 

* 

# 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 


ft  ft 

ft  ft 

ft  ft 

ft  EXTERNAL.  REFERENCES:  ft 

ft  ft 

ft  RTE * FILE  MANAGER y LIBRARY:  r ft 

ft  HQME._CT.CS1_  ft 

ft  ft 

ft  special:  ft 

ft  ft 

ft  ft 

ft  APPLICATION:  ( N AME/Prassr a m y Subroutine?  OR  Function)  ft 

ft  ft 

ft  DATA  FILES  ACCESSED:  ft 

ft  ft 


ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  x-  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft 
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\ 


$£  -X-  -X-  X-  -X-  ?<-  -X-  -X-  -X  -X-  -Xr  -S'  -X-  X-  X*  -Mr  Xr  -X-  -X-  X-  $$  -X  -X-  X X X X-  -X  £S-  X-  &■  ?-  ->5-  X- 


x % % % xxx  x t xxxx  x x x x t x x x xtx  * x x x £ & & x x x x x x x £ x * x x x x t >:<  X X X X X x >5;  >!<  * X X XXX  t X X X X * t X 
X * 

LEVEL  ? i_ # 

AUTHOR* # 

* 


DSPPD 


* SEAMPL.AN  SOFTWARE  DOCUMENTATION 

* 

X ROUTINE  NAME ? 

X 

X REVISION  CODE ? 

X 

X LOCATION  / ACCESS  PROCEDURE ? iL^FIP... 

X 

X TYPE ? 

X<  r .1  PROGRAM  C XT  SUBROUTINE 


E 1 FUNCTION 


X GENERAL  DESCRIPTION? 
X 

X 


Displays  parameter  data  on  the  CRT  prior  to  update. 


DATE? 8-2_5-79 X 

X 

t 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 


ACCE 


SSF. 

uT: 


D BY? 
SET 


X 

X 


LINKAGES?  # 

& 

X 

X 

V 

EXTERNAL  REFERENCES?  X 

X 

RTF?  FILE  MANAGER ? LIBRARY?  * 

ERASE (TCS)  HOME  (TCS)_  __  _ _ _ % 

% 

X 

SPECIAL?  X 

X 

APPLICATION?  ( NAME/P ros? ram t Subroutine?  OR  Function)  X 

/..?  / / $ 

x 

DATA  FILES  ACCESSED?  X 

_ X 

X 


xxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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X X X X X X X X 1 X X X X X X X X XX  X # X % X % X X X 3j<  X X X X X X X X X X X X X X X X X X X X X X & * X X X X X X X X X X X X X X X X 
X . X 


DSPSQ 


* SEAMPL.AN  SOFTWARE  DOCUMENTATION 
X 

X ROUTINE  NAME  J _ 

X 

X REVISION  code: 

* 


level: 

Elm 


* 

* 


author  : uri x 

date: tJJlll x 

x 


X LOCATION  / ACCESS  PROCEDURE : * 

X X 

* type: 

* L 3 PROGRAM 
X 

x general  description: 

* 


CXI!  SUBROUTINE 


r.  3 function 


X 
X 
X 
X 
X 
X 

x accessed  by: 


Displays  and  prints  the  sequence  of  operations  for  the 
dragline  simulation 


X 

x linkages: 

x 

x 

x 

x 

# EXTERNAL  REFERENCES: 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


rtf:?  file  manager?  library: 

DATE__(SYSJ HQME__(TCS)__  ?T>ENT  _(SYS)_ 


special: 


-SP_pL_U__(SYS) 


APPLICATION: 


(NAME/F’ro^ram?  Subroutine?  OR  Function) 


£ 

X 

X 

X 

t 

t 

X 

X 

X 

X 

X 

X 

X 

....  X 

X 

X 

t 

X 

X 

X 

* 

% 

% 

>K 

...  % 

....  X 
X 
X 

...  X 
X 
X 
X 


X 

/ 

/_. 

/„ 



X 

& 

/_  

/_ 

/„ 

/„. 

.._/ 

X 

# 

/_  

/_. 

/_. 

/_ 

/.. 

X 

X 

/ 

/__ 

/„. 

/_. 

X 

X 

/_.  

/_. 

/_ 

/_. 

X 

X 

X 

X 

X 

DATA  FILES  ACCESSED: 

X 

X 

X 

1 i 
i i 
1 1 
1 i 

i ! 

i i 

i X 

i i 
i i 
i ; 
! i 
i i 
! i 

i 1 
! i 
i ; 

X 

X 


X 
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X * 

* SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL  i Z_ 

# ROUTINE  NAME  J _Jls££?. AUTHOR ♦ £lm 


X REVISION  CODE! 

X 

X LOCATION  / ACCESS  PROCEDURE: 


DATE 


8-25-79 


& DSRCE 


* type: 

# r :i  PROGRAM 

x 

X GENERAL  DESCRIPTION: 
X 
X 


r X3  SUBROUTINE 


r D FUNCTION 


Controls  the  source  of  simulation  data  (operation,  case,  flag  and 
parameter) . 


ACCESSED  BY: 
DATA 


X 
X 
X 
X 
X 
X 
X 
X 

X t.  INK  ages: 
& 

X 
X 
X 
X 
t 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

x 
z 

t 

z 

X 


EXTERNAL  REFERENCES : 

RTE v FILE  MANAGER ? LIBRARY: 
ERASE  (TCS)  SPOLU  (SYS) 


SPECIAL,: 


application: 


DSPDS 


/S 


< NAME/Pros:  ram  r 
OPSEQ/S 


Subroutine * 
UPCAS/S 


OR  Function) 
_ UPFLG  / S 


UPSET  /6_ 


# 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

A* 

X 


X DATA  FILES  ACCESSED: 
>;<  „.§9.UJ.ce.„data  file 

X 


X 

X 

X 

X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXtXXXXXXXXXXXXXXXXX 
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XXXXXXXXX  *#XXXXXX  XXXXXXXX  XXX  XXXXXXXXXXX  XX  XXXXXXXXXXXXXXXXXXXXXXXXXXXX 


4c 

X SEAM PL AN  SOFTWARE  DOCUMENTATION 

it 

DSSAC 


LEVEL..: 

AUTHOR  :_.... 


4 

Elm 


X 


date:... 


8-25-79 


& DSSAC 


L 3 FUNCTION 


X ROUTINE  NAME: 

* 

X REVISION  code: 

X 

X LOCATION  / ACCESS  PROCEDURE: 

X 

x type: 

X C a PROGRAM  r x.l  SUBROUTINE 

X 

X GENERAL  DESCRIPTION: 

X 

$ Displays  operation  update  activities  when  the  operation  data  source 

% is  the  CRT. 

X 

X 

X 

X 

X 

X ACCESSED  BY: 

X ......  PPSEQ_ 

X 

x linkages: 

X 

X 


X 

X EXTERNAL.  REFERENCES: 

X 

X RTE v FILE  MANAGER ? LIBRARY: 

x hq^:_(Tcs) 

# 

x special: 

x 

X APPLICATION*  C NAME /Pros ram ? Subroutine?  OR  Function) 


\»s 

X 

X 

/_.. 





2“/" 

X 

/.... 

/„. 

/_ 

/.. 

/... 

X 

/_.. 

/„. 

/_. 

..  /_. 

/ 

X 

X DATA  FILES  ACCESSED: 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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X 

X 

X 

# 

* 

* 

X 

>5: 

& 

& 

* 

# 

xc 

* 

X 

X 

X 

5fC 

& 

* 

* 

# 

# 

* 

* 

X 

Xc 

* 

* 

# 

& 

# 

* 


SEAMPLAN  SOFTWARE  DOCUMENTATION 


ROUTINE  NAME: 


DTOT 


LOCATION  / ACCESS  PROCEDURE  i .... 


* 

X 
X 
X 
X 

X REVISION  COriE:_._ 

* 

X 
X 
X 
X 
X 

X GENERAL  DESCRIPTION: 
X 
* 

X 


level:_. 


ELm 


& DTOT 


type: 
t 1 


PROGRAM 


T X3  SUBROUTINE 


r 1 FUNCTION 


Displays  and 
simulated 


prints  totals  and  averages  for  each  type  of  operation 
as  well  as  totals  for  the  run  (5-50) . 


ACCESSED  BY! 

DRAG 

linkages: 

COMMON  - Blank;  M.D. 
Arguments  - none. 

EXTERNAL  REFERENCES  J 


RTF?  FILE  MANAGER*  LIBRARY 
ERASE  _ (_TCS)_ _ IDENT...(SY_S)„. 


Labeled  blocking 


SPECIAL 


APPL I CAT I ON: 


AOBR 


/?.. 

/_.. 

/_.. 

/_. 

/-. 


< NAME/P  rosirsRt  * 


Subroutine ? 


OR 


DATA 


FILES 

LU5 


accessed: 

LU6 


(assignments  vary) 


author: t 

date: ®i 2}lll * 

x 

x 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 


X 


X 

X 

X 

X 

X 

X 

x 

X 

X 

x 

* 

X 

Function)  X 

/_  X 

/._  t 

X 

X 
X 

__  X 


X 
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DUMP 


level: i 

author: Sim 

DATE  J §-25-79 _ 


# t Z t # & * t * t t # i:  # * t * # # >fOfc  # % t # # # # t t 1 % 1 1 # # '%■  >;<  * t >:<  # # # # 1 & X Y * # * # & # # 1 1 1 ft  t >1'  t 

* 

# SEAMPLAN  SOFTWARE  DOCUMENTATION 

* 

* ROUTINE  NAME  l ..Jr 

* 

* REVISION  code: 

* 

* LOCATION  / ACCESS  PROCEDURE ♦ JL™?_ 

* 

* type: 

* C 3 PROGRAM  C *1  SUBROUTINE 

* 

* GENERAL  DESCRIPTION: 

$ 


T 3 FUNCTION 


* 

* 

* 

# 

* 


Searches  the  spoil  pile  for  a dump  location  for  a spoiling  operation 
cycle.  When  one  is  found,  the  swing  angle  and  X,  Y coordinates  of 
the  location  are  calculated. 


& ACCESSED  BY: 
■it  OBR 


% 

% linkages: 

% 

% 

% 

% 

% EXTERNAL  REFERENCES: 

% 

% RTE i FILE  MANAGER , LIBRARY: 


# 

$ 


special: 


APPLICATION 


NINT 


( NAME/P rost ram t Subroutine?  OR  Function) 


>!( 

>K 
* 
t 
t 
% 

% DATA  FILES  ACCESSED: 

* # 
K%$(  $ t $ % # #&>{<&&  £ & % t % *’  % t >!<  & $ t % & % X % t & % % % & & f(.  % # t % % % % % % % % %%%%  % % % T ft  ft  ft  ft  ft  ft  ft  ft  ft 


.../£ 


RTHTA__  __/S 
/_ 


/ 

— / - 
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X X-  X X X «•  «•  X X X -X’  X X-  X X X-  X -54  -56  -X  X X-  X X-  X X X X X-  X X X-  X-  X -X-  X X X-  X X-  X X-  X-  X X-  X 


* X 

* SEAMPL.AN  SOFTWARE  DOCUMENTATION  LEVEL  J .3 # 

X * 

* ROUTINE  NAME  ♦ ZBisICH. AUTHOR  * -Lira * 

& X 

* REVISION  CODE: DATE: &/9./2SL * 

X X 

X LOCATION  / ACCESS  PROCEDURE: iIBNCH * 

* t 

* type:  # 

X r 1 PROGRAM  r.X  J SUBROUTINE  C 3 FUNCTION  X 


X 

X 

# 

* 

# 

* 

# 

* 

# 


GENERAL  DESCR IPT I ON  J 

EBNCH  is  called  to  produce  drawings  of  extended  and  /or  side 
benches  in  both  plan  and  cross  section  views.  Geometric  equations 
must  be  in  agreement  with  those  used  in  MODI  and  M0D2. 


X 

X 

* 

X 

X 

X 


X 


X 

* ACCESSED  BY: 

& B_R_WPL __DRWXS_ 

* 


X 

t 

X 

X 


x linkages:  * 

x x 

% COMMON  - Tektronix,  MODI ,M0D2  ,and  DIAGR.  % 


X 


X 


X 


X 


# EXTERNAL  REFERENCES:  # 


% 

X 

X 

X 

X 

X 


RTEf  FIL  E MANAGER  * LIBRARY: 

ANMOD  (TCS)  DASHA  (TCS)  DRAWR  (TCS)  GETLU  (DSP) 

ZJiMJics)  HZ  ’I 


special: 


x 

..MOVE A 1ICS)  * 


X 


X X 

X APPLICATION:  < NAME/Progrsffi v Subroutine?  OR  Function)  « 

>;<  P.RWSPL /_S  /__  /„  /_  / ...  X 

X * 

X BATA  FILES  ACCESSED:  * 

X X 

X X 


xxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxx 


72 


KXKtX*  t & *&**£££#  * & 5jc#  # * t i<  £ * * * * * # t t £ t 5k  5k  t & 1 t t t tttttt  £ Xtt*  t * T * * 1 1 * £ * £ 


* 

* SEAMPLAN  SOFTWARE  DOCUMENTATION 
% 

% ROUTINE  NAME: 


LEVEL  : 


EFC 


* 

# REVISION  code: 

* 

* LOCATION  / ACCESS  PROCEDURE: 

* 

* type: 


IEFC 


AUTHOR : ...  _ _e _£r_ef  H % 

date: £ii 5zl2. * 

% 


C 3 PROGRAM 


* 

% 

# GENERAL  DESCRIPTION: 
Jk 


r X3  SUBROUTINE 


C 3 FUNCTION 


EFC  checks  for  forbidden  or  required  reclamation  alternatives. 


% 

* 

* 

t 

* 

% 

* 

* ACCESSED  BY: 

* ___LUOS_ 

t 

* linkages: 

% 

js,  CLAIM  common 

$ Argument:  LUORNS 

* 

& EXTERNAL  REFERENCES : None 
* 

* RTE ? FILE  MANAGER ? LIBRARY 

* 

t special: 

* 


t 

t 

* 

% 

t 

* 

>k 

* 

% 

% 

5k 

V 

>;< 

t 

* 

% 

% 

>k 

$ 

5k 

* 

>K 

5k 

5k 

>k 

% 

>k 


7k 

application: 

< NAME/P rod  ram ? 

Subroutine?  OR 

Funct i on ) 

& 

/_ 

/...  

__/ 

/„  

/_. 

5k 

5k 

/„ 

/„.  

/_  

/„  

5fC 

$ 

/_. 

/„.  

/ 

/..., 

/.. 

* 

)k 

_/_. 

_ /...  

/_  

/ 

. ./. 

t 

5k 

/„ 

/_.  

/__  

/._  

* 

>k  * 

t DATA  FILES  ACCESSED*  & 

t % 
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& & ¥t  Vi  & Vi  Vk  Vi-  Vi  VH  ¥: 


* . * 

t 

t 


EXDRG 


* SCAMPI. AN  SOFTWARE  DOCUMENTATION 

* 

# ROUTINE  NAME: 

* 

* REVISION  code: 

* 

* 

* 

* 

* 

*- 


evil.  : 


author: 


Elm 


date: _?_?.5„rZ? # 


LOCATION  / ACCESS  PROCEDURE : * 

* 
* 
% 
* 
* 


type: 

r 3 


PROGRAM 


DC  3 SUBROUTINE 


T 3 FUNCTION 


# GENERAL  DESCRIPTION: 

# 

£ Dragline  simulation  main  program.  Calls  DATA  to  initialize 

^ parameters  and  DRAG  to  perform  the  simulation. 

* 

* 

* 

* 

# ACCESSED  BY: 


ADMUI  (MD) 


L INK ages: 

Blank  COMMON,  Labeled  COMMON  (ADM  & M.D.  blocks), 
Arguments  - MODE,  MTHD 


RTF.  f FILE  MANAGER  ? LIBRARY? 


SPOLU  (SYS) 


% 

* 

& 
*r- 

* 
* 
& 
£ 
* 

>:< 

* 
* 
>;< 
* 

* 
* 
* 

# 
* 
* 
% 
% 
% 
% 
% 
% 

% 

% 

%%%%%%%%%%%%%%%%%%%%%%%%%%*%%%%%%%%%%%%%%%%%%%%%%%%%%%%•&%%%%%%%%%%%%% 


% 

% 

% 

% 

% 

% 

% 

% EXTERNAL  REFERENCES 
% 

% 

% 

% 
t 
% 

% 

% 

% 

% 


DATE  (SYS) 


SPECIAL 


application: 


DATA  FILES  ACCESSED ♦ 


( NAME/Prodrsm t Subroutine?  OR  Function) 


„ 

/_. 


..  / ... 


./. 
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I 

I 

I 

I 


# # & jfc  x<  1 X X X X X £ t X * X X X * £ X X X t X X X X X X * * £ & * £ X<  X % X & 1 X X X 1 X X XXXXXXXXXXXXXXXX  X X t * t 


X X 

* SF.AMPLAN  SOFTWARE  DOCUMENTATION  LEVEL4,..., .3. % 

X X 

X ROUTINE  NAME  i F.C RQJD. AUTHOR  i EJlD * 

X X 

X REVISION  CODE: DATE l .37.1  6/ ..7.9. * 

X X 

X LOCATION  / ACCESS  PROCEDURE4. &EQKQD. * 

* * 

t TYPE 4 X 

X r.  1 PROGRAM  r.  3 SUBROUTINE  fX}  FUNCTION  * 

X X 

X GENERAL  DESCRIPTION ♦ * 

X * 

X Solves  a quadratic  using  binomial  theorem.  x 

X X 

X X 

& £ 

X X 

X X 

X X 

X ACCESSED  BY ♦ * 

X SPNCJF X 

X X 

t linkages:  * 

x x 

X Arguments:  AQ,  BQ,  CQ.  x 

X X 

* X 

X EXTERNAL  REFERENCES:  X 

X X 


X 

X 

X 

# 

X 

X 

X 

X 

X 


RTF !•  FILE  MANAGER ? LIBRARY!  * 

X 

special:  * 

X 


* APPLICATION!  (NAME/Prostrsm*  Subroutine?  OR  Function) 
DATA  FILES  ACCESSED! 


X 

X 

X 

X 

X 






/... 

/_ 



/.. 

/„ 

/... 

/... 

/_ 

/_ 



/,. 

/_ 

/,. 

— 

— 

: i 
! ! 
i : 
i ; 
1 i 
i ! 
i ! 
1 i 
! i 
i i 

X 

X 

X 

X 


X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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¥r  -X  -X-  -X:  Xr  -X-  X -X-  -X:  -Xr  X-  -X-  -5>ir  -X  -X  X X -X  X X ~ 


1 * * * *********  Xc  Xc  Y Xc  Xc  YYYY Y Y Y X<  Y Y Y X<  Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Xc  Y Y Y Y Y Y >!:  Y Y Y Y Y Xc  * Y * Y * Xc  Y 

Y 

Y S E A M P L A N S 0 F T W A R E D 0 C IJ  M E N T A T 1 0 N L E V E L : .?.. „.  

Y 

Y ROUT  I N E NAME  i iDLQ . ......  AUTHOR  i Elm 

R E V I S I 0 N C 0 D E J __ _ 1 _ D A T E t 7J1.9L  11 

I. . 0 C A T 1 0 N / A C C E S S P R 0 C E D U R E 5 A?PI*9 11.3. ...ADM ; RU, SPLAN 

TYPE  t 

r ::i  program  i:x:j  subroutine  r.  ::i  function 

GENERAL  DESCRIPTION \ 

FDLQ  Interactively  estimates  dragline  size  requirements  (boom  length, 
bucket  size)  for  the  mine  area. 


ACCESSED  BY  I 

BTDL 


!..  INK  AGES:; 

GVNADM  Common  area,  GVNDEC  Common  area;  Arguments  YQ,YR,YW;  Reach 


Y Y 
Xc 
Y 
Xc 


'V* 


y 

Y 

Y 

Y 

Y 
Xc 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 


Y 


Y 


£ (computed),  Reach  (initial),  bucket  size. 

Y E X T E R N A !...  R E F E R E N C E S t 

Y 

Y R T E , F I !...  E M A N A G E R , i...  I B R A R Y ; 

Y _ 

Y 

Y ._ 

Y 

Y SPECIAL? 

Y 

Y 

Y 


Y 

A PPL  I CAT ION: 

(NAME/ Proa 

r a it?  S u b r o u t i ri  e ? 

0 R F u it  c t i o n ) 

Y 

/ 

.. / 

/ 

/ 

Y 

/_.. 

./.... 

/ 

/ 

Y 

_... / 

/.... 

/ 

/... 

Y 

.../ 

/._. 

_/.... 

/....  

Y 



/.... 



/ ....  / 

Y 

Y D A T A F 1 1...  E S A C C E S S E D i 


Y 

Y 
% 

Y 

Y 

Y 

Y 

Y 
Xc 

Y 

Y 

Y 

Y 
% 


Y 

Y 

Y Y 

Y YY  YYYYYY  YY  YYYY  YXcY  YYYYY  Y Y YYYYYYYYYYYY  YYYYYY  YYYYYYYYY  YYYYXcY  Y YYY  YY  YY  YXc  Y 
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T-'-'t  7-‘t  Ts  T-:C"  T-:Y 


54  54  54  54  54  54  54  54  N-  54  34  54  * 54  54  % 54  54  54  34  54  34  54  34  34  54  54  34  34  54  3*  34  54 


He  * % % * % % % % % % % % % He  He  H<  He  He  He  * He  * He  He  He  * * * He  He  He  t He  He  He  He  * He  He  He  1 1 He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He 
He  He 

He  R F A M P I A N S 0 F T U A R F ri  n C U M F N T A T 1 0 N I. . E U F I...  \ He 

He  I 

He  ROUTINE  NAMF  5 FILBF AUTHOR  ?, Lehmap t 

He  He 

He  RF  VIST  ON  CODE?1 -9. r’  5 DATE  l 6/1/79 He 

He  1 . 0 C A T T 0 N / A C C E S S P R 0 C F .0 ( .! R F J , . JRD ,J£l.e He 

He  He 

H<  TYPE?  * 

He  r:  :i  p r o g r a m r:  xi  s u b r o u t i n f r 3 f i.  i n 0 r :r  0 n 

He 

He  G E N IF!  R A !...  D E S f:  R I P T I 0 N i 
He 

He  Fills  buffer  (vector)  with  row  or  column  of  grid  data  for  three 

He 

He  dimensional  display. 

He 


ACCESSED  BY l 
I..  INK  AGES? 

Uses  arguments  and  TRD  common  block. 

F X T F R N A i ; R E F F R I N G F S i 


R T F , F I !...  E M A N A G r R , | . ;i;  B R A R Y i 


SPECIAL i 


APR!..  I CAT  ION 


< N A Li  E / P t-  o < r a m ? S 1 1 b r o u t i n e ? 0 R F u n c t i a n ) 


DATA 


He 

He 

He 

Hi 


/.. 

; / ... 

/ .... 

/ 

/...  He 

/ 

/ 

/.. 

/...  He 

/ 

/...  He 

/... 

/... 

/_ 

/..  H< 

/... 

/ 

/...  He 

•J- 

FILES  AC 

CESSED i 

• t' 

He 

:-K 

He 

Hi 

H He  He  H He  Y H:  H H H H He  H He  He  He  H H H He  He  He  H<  H<  H:  He  He  He  He  H He  He  H H He  H He  H He  He  H He  He  He  H H He  H H H He  H:  Sle  H H H H H H H H H H He  H He  He  He 
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34  34  34  34  54  54  34  34  54  34  34  54  54  54  54  54  54  54  54  54  54  -54  54  54  54  54  54 


X X X * X X X X X >!<  % X X * X X X X X X X X X X X X * X X Y X # * * * % X X X .'{<  X * X X X X X X X X X X X X X X :«  X X X t X X 1 X X X X X 

i«  % 

X s i A M P I . A N S 0 F T W A R F D 0 1 U M EN  T | T I 0 N L E V F L : 3 * 

He  A 

R o IJ  T I N F N A M F : FLEX A 1 1 T H 0 1 '<  t Elm . 

X . X 

X R E U I S 1 0 N C 0 D E X D A T F.  t *J$L 19 X 

:{<  X 

X I... 0 C A T 1 0 N / A C 0 E S S P R 0 C F D U R E i .AFLEX. ...file „ * 


[■  x II  si  JR  ROUT  INF 


C :i  FUNCTION 


* 

X TYPE  X 

x r:  :i  program 

Jfi 

X GENERAL  DESCRIPTION: 

X 
X 
X 
X 
X 
X 
X 
X 

X ACCESSED  by: 

X ...PI  TON. 

* 

X LINKAGES; 

X 

X COMMON  - Flexible  Tolerance,  MODI,  MOD2,  and  dynamic  programming  (PITDP) 

X common  blocks  Arguments  - I CODE,  ZMOD,  NNX,  NNIC , NNC ; use  code,  model 

X code  and  NLP  size  variables. 

X F X T E R N A I...  R E F E R E N C E S J 
X 

R T E » F I!  i...  E ft  A N A G E R , !...  I B R A R Y i 

IDSEC(SYS) _ 


FLEX  provides  the  interface  between  the  2nd  design  level  dragline  models, 
MOD  1 and  MOD2,  as  well  as  the  Flexible  Tolerance  optimization  code  and 
the  PITON  program  segment. 


ANALY 


SPEC ial: 


X 

X 

% 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

A PPL I CAT  ION: 

( N A M E / f:‘  r o A r a m ? S i.t  b r-  o u t :i.  n e ? 

OR  Fu net i on ) 

X 

X 

....  DPFZO /.s 

F.TOL /S 

MODL AS 

./.... 

„ / .... 

X 

X 

/.... 

/.... 

/ 

/ 

/ .... 

X 

X 

/.... 

./.... 

/ 

/ 

/ 

X 

X 

.../.... 

/ 

/.... 

X 

X 



X 

X 

X 

X 

DATA  FILES  ACCES 

SED : 

X 

X X 

X x 

X X 

xxxxxxxx.xxxxxxxxxxxxx^xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxttxxxxxxx 
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Ati  At;:,  Aji  A;C  ££  >.C.  AVC.  ^ 


# t * He  He  He  # He  He  He  He  He  He  He  He  He  He  He  *:  He  He  He  He  He  He  He  He  He  He  H<  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  * He  He  He  He  * He  He  He  1 1 1 He  He  He  He  He  He  He  He  He  He  He 


I FUEL  J 

AUTHOR  l Bonners; 

DATE: 6/1/7? 


1 FUNCTION 


He 

He  S F A M P I . A N B 0 F T W A R F D 0 C U H E N T A T T 0 N 
He 

He  R 0 U T J N E N A M E J ...  

H< 

He  REVISION  CODE  X l-...0. 

He 

He  |...  0 C A T 1 0 N / A C C E S B P R 0 C E D I J R E * . . &c s 3DD 

He 

He  TYPE; 

He  r:  :i  program  r;x;i  subroutine 

H< 

He  GENERAL  DESCRIPTION: 

He 

$ Draws  frames  below  three  dimensional  cross  section  displays. 

He 

He 

He 

He 

H< 

He 

He  ACCESSED  BY?, 

jjc  CS3DD 

* 

* I.  INK  ages: 

He 

# Arguments  VERTEX  and  ADDY. 

He 

He 

He  F X T E I-,;  N A L R E F F R E N C E S S 
H< 

He  R T F » F 1 1...  E M A N A G F E •>  I . I B R A R Y i 

He  

He  

H<  

He 
He 
He 
He 
He 
He 
% 

He 
He 
He 
He 
He 

He  D A T A F 1 1 E S A 0 C F S S F D X 
He  

Y 


H 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

H< 

He 

* 

He 

He 


SPEC  I A I...  ? 

TCS 


APPLICATIONS 
/... 

/.. 

/.. 


< N A M E / P r o A r-  s m ? S u b r o 1. 1 1 :i  n e ? l 'J  R F 1. 1 n c t i o n ) 


He 

He 

H 

:H 

H 

H 

H< 

H< 

H 

He 

H< 

He 

He 

He 

H« 

He 

He 

He 

./...  He 
./...  He 
./..  He 
/ ..  He 
./....  He 
He 
He 

He 

He 

He 


He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  t He  He  He  He  & He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  Y He  He  He  He  He  He  He  He  He  He  He  H?  He  H: 
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*r  f*  ££■  34 


*•  $4  44  44  54  * a*-****-*-**:'*.*. 


5k  k x<  t k k k k Xc  X<  Xc  3k  3k  k Xc  k 3k  k xc  x<  )k  3k  k k Xc  3k  k xc  k k k k k k xc  k k k k k k k k k k k k k k k k k k xe  k k k Xc  k k k k k k k k k k k 

k k 

k SEAMPI  AN  SOFTWARE  DOCUMENTATION  I ENEL,  i k 

Xc  k 

k R 0 1 1 T T N E N A M E l . . A ! J T I I 0 R l Lehman. % 

k k 

k REV  I SION  CODE  ♦ il.0 DATE  ♦ 6/1/79 ...  k 

k k 

k LOCATION  / ACCESS  PROCEDURE  ♦ £ile k 

k 

type:  k 

r;  :i  program  r:xi  subroutine  i:  i function  k 

k 

GENERAL  DESCRIPTION t 


Draws  frame  on  three  dimenional  display. 


ACCESSED  BYt 

TRD 


special: 

TCS 


k I.  ink  ages: 

k 

k Arguments  containing  vertex  coordinate  and  index  of  front  coordinate, 

k 
k 

k E X T E R N A I...  R E E E R E N C:  E S $ 
k 

k R T E y F ]'  I...  E M A N A G E R y I I B R A R Y < 

k 

k 

k 

k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 

k DATA  FILES  ACCESSED  I 

k 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


A I"'  P LI C A T 1 0 N I ( N A M FI  / 1::‘  r o A r a m ? S uh  r o u t i n e ? 0 R I”  u n c t i o i"i 


./... 


/... 

/... 


/..„ 

/... 


/. 

/. 

./. 

/ 


../... 

/_.. 

/ 
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•54  -54  44  -54  44  44  44  44  44  44  44  54  -54  -54  -54  44  44  44  44  '44  44  44  44  44  44  44  44  44  44  44  44  54  54  44  54  44  -54  -54  44 


X * 

>;<  SEA  HP  LAN  SOFTWARE  DOCUMENTATION  LEVEL  ! JL— t 

% # 

* ROUTINE  NAMEJ...FYJ2.3. . AUTHOR ! Oui_. * 

* % 

% revision  code: date: .8/1.6./Z9. >s< 

X * 

# LOCATION  / ACCESS  PROCEDURE! &FYB23 % 

* * 

X TYPE!  # 


* T .1  PROGRAM  . C 3 SUBROUTINE  T.X  3 FUNCTION 

t 

* GENERAL.  DESCRIPTION! 
t 

X Computes  rehandle  area  Centroid  for  2-pass  dragline  model. 

t 

* 

x 

t 

X 

* 

X ACCESSORY! 

* 

X LINKAGES ! 

X 

t COMMON  - TFCOM  (Flexible  tolerance),  M1C0M,  M2 COM,  T2C0M 

5$c  Argument  - DUM  (not  used) 

* 

# EXTERNAL  REFERENCES! 

X 

X RTF y FILE  MANAGER r LIBRARY! 

X 

X SPECIAL! 

t 

X 

t APPLICATION!  ( NAME/Pro^ram ? Subrout i ne t OR  Function) 


X 

* DATA  FILES  ACCESSED! 

$ t 
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$$  •$£  $£  ¥?  36  $6  ->i  $$  $6  3$  36  -36  36  36  36  36  36  -X-  36  36  36  36  36  36  36  36  36  36  36  36  36  36  36  36  36  36  36  36  36 


34  34  34 


:{:  * :{<  X % X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 


S E a M P L a N 5 G F T W A ft  E D 0 C U M E N T A T 1 0 N 

GAA 


LEGE  L : 2 

AUTHOR  l Elm 

PATE: 77.19/ 7.9. 


E 1 E UNCTION 


X ROUTINE  NAME: 

* 

X REVISION  code: 

X 

X 1 . 0 C A T 1 0 N / A c:  C E S S P R 0 C E D U R E J &CAA  . 

X 

X v y f :•  p < 

;{<  E 1 ::i  P R O G R A M I"  X II  s LJ  E R 0 U T I N E 

X 

X G E N E R A I...  D E S C R I P T 1 0 N J 
X 

X The  GAA  routine  evaluates  the  ADM  Macro  General  and  Administrative 

X 
* 

X 
X 
X 
X 

X ACCESSED  by: 

% ADM 

X 

X 1 INK ages: 

x 

GAA  Common  Block  Arguments:  LFEC,  LFLP  - Logical  Units 

X 

X LOGPD,  LOGPE  - Option  flags 

X E X T E R N A L R E F E R E N C E S I 
X 

R T E y F 1 1...  E M A N A 6 E R y I. . I B R A R Y } 

CODE (RTE) 


Expense  Model  and  ouputs  results  to  the  user  and  the  Cas  Flow  Analysis 
program  data  file,  FLECRG. 


special: 


X 

X 

X 

X 

X 

X 

X 

x 

* 

X 


X 

APPL I CAT  ION; 

( N A Mi  E / P r o s r a m ? 

Subroutine ? 

OR  Fund  .i  on  ) 

X 

X 

/ . 

/ 

/.. 

/ 

X 

X 

/ 

/ . 

/ 

/ ... 

/ 

X 

/ 

/ 

/_. 

/ 

/ 

X 

X 

/ 

/ 

/.... 

_..../  

X 

X 

_t  / ... 

/ 

/ 

/ 

X 

X 

X D A T A F I !...  E S A C C E S S E D i 

X „ FLECRG 

X _. 

X 


X 

X 

X 

X 

X 
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-Si  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  3 34  34  34 


% t 

t SEAM PLAN  SOFTWARE  DOCUMENTATION  LEVEL.:  >.-.3 % 

^ $ 

* ROUTINE  NAMES AUTHORS. .Elm * 

% % 

* REVISION  CODES DATES 8/23/79 __ 

* 

* LOCATION  / ACCESS  PROCEDURES j^ETD_ 

* 

t TYPES 

* r 3 PROGRAM  rx3  SUBROUTINE  L'  3 FUNCTION 


% GENERAL  DESCRIPTIONS 
& 

Interpolates  between  overburden  and  coal  seam  thickness  observation  & 
points  to  get  values  at  a particular  stage  coordinate  relative  to  YEDGE  $ 

>K 
t 


* 

% 

* 

t 

% 

* 

t 

t ACCESSED  RYS 
t _RETRN 

t 

* LINKAGES S 


PITDP 


* 

Jfc 

# 

£ 

t 

% 


* 

% 

* 

% 


t 

t 

t 

% 

% 


COMMON  - IFCOM,  M1C0M,  M2COM,  DPC0M1 
ARGUMENTS  - SI,  SIP1,  D,  T. 

EXTERNAL  REFERENCES  S 

RTF v FILE  MANAGER ? LIBRARY: 


# SPECIALS 

t 

* 


t 

* 

* 

t 

% 

# 

& 


# 

& 

& 

% 


t 

t 


APPLICATIONS 


< NAME/P  rosS 


srtn  Subrouti 


er  OR  Functi 


> # 

* 

/..  # 

# 

/_.  t 

* 


% DATA  FILES  ACCESSED: 
* 


* 


% 

* 
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I 


I 

I 

I 

1 

1 


XXXXXXXXXXXXXXXXXXXXXXXXXXtXtXXXXXXXXXXXXtXXXXXXXXXXttXXtXtXXXXXXXXXX 


X X 

X SFAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL  l 2 * 

X * 

X ROUTINE  NAME  t __GR£NI AUTHOR ! _._JLJ_..W # 

X X 

X REVISION  CODE: DATE: B/.23/J3 * 

t X 

t LOCATION  / ACCESS  PROCEDURE: * 

X X 

x type:  * 

* IX  -j  PROGRAM  I.  3 SUBROUTINE  C 3 FUNCTION  X 

X X 

X GENERAL  DESCRIPTION:  * 

X X 

X GRCNT  allows  the  user  to  select  programs  which  convert  alphanumeric  X 

X X,Y,Z  data  file  to  sorted  binary  X,Y,Z  Q-  Stampede  formatted  files,  and  * 

X these  files  into  Grid  file.  X 

* X 

* X 

X X 

X t 

X ACCESSED  BY:  X 

X X 

x linkages:  t 

X & 


X 

X 

X 

X EXTERNAL  REFERENCES  t 


X 

X RTF?  FILE  MANAGER ? LIBRARY: 

* __....CJH5IZ,.XICS  imi_(ICS)  NEWRGl._(I.C.S ) 

X . 

X 

x special: 

x 

t 

& APPLICATION:  ( NAME/P ros$ ran ? Subroutine?  OR  Function) 

X 


X DATA  FILES  ACCESSED! 
X 


* 

t 

X 

X 

X 


X 

X 

X 

X 

t 

X 

X 

X 

X 

X 

X 

X 

vlf 

$ 

X 

X 

t 


XXXXXXtXXXXXXX  X X XtXX  X X X X ######*#**£$  X X # 3?c  X X X X X t X X X X X X X X X X X X X X X X X X X X X X X 
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#r  A A -54  A ¥:  A A A A A A A A A A A ^ ^ ^ A A 34  34  * -54  -34  -54  34  34  34  34  34  34  X-  £4  34  3*  34  34 


X X X X XXXX  X * * * * * X X X X X X:  X X X X X X X He  X X X X X X X X Xc  X X<  Xc  X X'  X'  X X:  X'  X;  X X X X X X X X X X X X X X X X X:  % % % % X 


X X 

X 8 E A M P I A N 8 0 F T U A R E D 0 C 1 1 M E N T A T T 0 N I E M F I . t X 

X x 

x ROUTINE  NAME? GRDIN AUTHOR i Lehman 

X X 

X R E V 1 8 T o N 0 0 D E t ...  1..-...Q D A T E X §1  1 (11 

X 

X I 0 C A T 1 0 N / A 0 C E S 8 P R 0 C F D I J R E X ..  A. . G.RDI.N 


TYPE : 

i ; x ::i  program  r:  3 bubrout  jnf  r:  3 fungi  ton 

GENERAL  DESCRIPTION J 

Utility  to  read  grid  data  file  and  pass  back  grid  and  header 
data  to  calling  program. 


ACCESSED  BY i 

...  TOPO TRI) PTLOT DPLOT 


I INK AGES? 


EXTERNAL  REFERENCES J 


R r F ? E 1 1...  E M A N A G E R ? ! . I B R A R Y { 
..EXEC « RMPAR. 


SPEC  X AL i 


APR 


SP.QLU 

- 



■ T ON  t 

( N A M E / 1::'  r o s?  r 

a rn  ? S u b r n u t :i 

ne?  OR  Function) 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

./... 

/... 

/ 

/.... 

/.... 

/ 

/ 

./.... 

/ 

/ 

/ 

/ 

DATA  FT  I E! 

...  GRID 


ACCESSED? 


X x X X x X X X X X X X X X X X X x X X X X X X X X X X x x X X X X X X X X X X X X X X X X X X x X x x x X x X x X x X X x X x X X X x X 


B5 


■’£  ^ & 34  34  34  34  34  A A 34  34  34  34  34  A * 34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  A A A A -5$  34  A A A A A 


34  34  34 


5fc  Xc  x * x x t X % % X X X X X X * X X X X X X X 1 X X X X X X X X X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

x x 

X S F A M P I A N S 0 F T U A R F D 0 C U M E N T A T 1 0 N I E U F L i * 

X X 

X R 0 U T I N E N A M F t GRI)NT A 1. 1 T H 0 R J Conner  s * 

X X 

X R E M T S 1 0 N C ODE  J ...1  r P. _ D ATE  t L 19. X 

X X 

X 1.0 0 A T T.  0 N / A C C E S S P R 0 C E D UR E t .PGRPRT  ...  X 


r.  :i  subroutine 


r 1 FUNCTION 


X 

X TYPE i 

X r X I PROGRAM 
* 

X G E N E R A !...  D E S C R I P T 1 0 N I 
X 

X Establishes  a set  of  grid  values  for  a grid  having  limits  and  / or 

X 

X a mesh  interval  different  from  that  of  a source  grid. 

X 

X 

X 

X 

X<:  ACCESSED  BY  i 

* DENRV 

X 

X !.  INK  ages: 

X 

X.  Retrieved  user  terminal  logical  unit  using  RMPAR 

X 

X 

X E X T E R N A L F;.'  E F E R E N C E S : 

* 

X RTF?  FILE  MANAGER,  LIBRARY: 

* ....rmrar _ „ 

X _ 

X 

* 


* 

* 

X 

X 

* 

* 

* » A T A E 1 1...  E S A C C E S S E B : 

X GRID 

* 

X 


AT  ion: 

(NAME /Pros 

r a m ? S u b r o u t i n e ? 

0 R F u i"i  c t i o n ) 

/... 

/ 

/ 

/... 

/... 

/ 

..../ 

/... 

/.. 



/.. 

/ 

/... 

/ 

. / 

/ 



/ 

/.. 

X X X X X X * X X XXX XXX  X X # X X X X X X $ X X X X X X X X X $ X *:  X X $ X X X X * X X X X X X X X X X X t X X X X X X $ t X<  X X x 
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34  34  34  34  3-5-  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34 


# Jfc  % 4c  # $ $ 4:  ****  # Jfc  4c  jfc  jfc  jfc  >f:  jfc  t % t Jfc  Jfc  Jfc  Jfc  >5c  Jfc  Jfc  4c  Jfc  1 1 1 * Jfc t 1 * Jfc  % Jfc  i<  4c  Jfc  Jfc 4c  & 4: 4c  4c  4c  % 
t 4? 

jfc  SEAM  PI.  AN  SOFTWARE  DOCUMENTATION  LEVEL  ? __..  3 j*c 

4c  4c 

Jfc  ROUTINE  NAME  ♦ GRFF. AUTHOR  ? ..ILv„Larson_ „„  « 

Jfc 

Jfc  REVISION  CODE: DATE ? 5./J..9. 

4c 

* t.OCATION  / ACCESS  PROCEDURE ? DATA.. ENTRY. AND. _RE V IEW. 

4c 

4<  TYPE? 

4c  T.  X]  PROGRAM  C 3 SUBROUTINE  IT  3 FUNCTION 


4c  GENERAL  DESCRIPTION ? 

Jfc 

# This  is  a bargraph  routine  designed  to  let  user  define  his  own  red  flag 

Jfc 

4c  level. 

4( 

4c 

4c 

Jfc 

Jfc  ACCESSED  BY  l 

55c  COREL 

4c 

>:<  linkages: 

4< 

4c  ITEK,  and  COfE-lON  block  from  COREL. 

Jfc 

Jfc 

Jfc  EXTERNAL  REFERENCES? 


4c 

4c 

Jfc 

Jfc 

4c 

4c 

4c 

4c 

Jfc 

4c 

4c 


4t 

* 

4! 


RTF?  FILE  MANAGER ? LIBRARY? 


_MMOD(TCS).„ 
.CHS  IZ.CT.CS  )..  _ 

JDASHR  Cf  C.S  ) 

VWNDO(TCS) 

SPECIAL.? 


APPLICATION? 

JNTER /_S 

_XLINE  :i.../„S 

"sort  I ""I/ _S 


...DRAWA.(TCS). 
.MWRL.CXQSJ. 
„ ERASE ETC  SX 
SVSTT(TCS) 


_EXE.CIET.E3_. 

..._UQMEX1CS3_ 

__MQ_VABXT.CS.) 


MOVEACT.CS.).. 

_ JMOVRL.CT.es).. 
....EESTT.C1DS.EP) 


<NAME/Prosirsmp  Subroutine?  OR  Function) 


Jfc 
t 
4c 

Jfc 

4< 
% 
t 

Jfc 

X 
4: 

Jfc 
Jfc 

Jfc 

jfc 

Jfc 

4C 

4c 

4c 

4c 

4: 

jfc 

4c 

4c 

Jfc 

jfc 

4c 

4c 

4c 

._  J1MPARCSIS.)  % 
_.  ..EWXDO.CT.es.)  Jfc 
„ _VCESRCT.CS.)  * 
4 c 
Jfc 

% 

% 
% 


% DATA  FILES  ACCESSED? 

Jfc 


/_ 

/„ 

/_ 

X 

/__ 

/ ... 

./  — 

JfC 

/_. 

/_. 

/_. 

Jfc 

— _ — /_. 

/-. 

/ .._ 

4c 

— /_ 



— /~ 

4c 

4c 

i t 

i ! 
i ! 
i i 
1 ! 
i i 
1 ! 
! i 
i i 
i ; 

— — * 

t 

Jfc 

X* 

% 


% % % %%%%%%  % % % %%%%%%%%%%%%  % %%%%  % % 4c  4c  4c  4c  % % % % X % % 4c  4c  4c  4c  4c  4c  X 4c  4c  4<  4c  X t X X X X & 4c  4c  4c  1 4<  Jfc  4c  X X 
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-S’C  W iS:  -i»7  •*?  -Js?  •?£■  ^ ■?$•  ■#$■  >.’:  ?.$■  if-  if- 


^*5jC)|(^^){s)|afoK)(c>|oK)K*5(ofo«<:*)«<Hc)K)KJ(o((*)!<^^)«5K*)ioK){^)fc^)(c>K)|o{{^'4C5{oK)k)i()i<){^)f(«*>K5{c^)j<^otc*t)K;i  TTYY  t 
S E A h P I ...  A N S 0 F T W A R E D 0 C U M E N T A T I G N L E G E 1.  i 3 

r o u t i:  n f : n a m e : liUB - - a u r h o r : E ; im _ 

R E G I S 1 0 N C 0 D E i _. _ _ _ D A T E ! 1.1. 3Q/.Z.9 

I...  0 C A T I O N / A C C E S S P R 0 C E D U R E i MM 

TYPE  i 

c :i  p r g g r a m r.x  :i  s u b r o u t i n e r;  :i  f u n c t :i:  o n 

GENERAL  .DESCRIPTION: 

HUB  draws  the  dragline  hub  for  the  cross-section  view  draws  swing  areas 
and  locations  in  plan  view. 


* AC CESS ED  BY i 

* .ML DRWXS — 

* 

% LINKAGES!  COMMON  - Tektronix,  MODI,  M0D2,  and  DIAGR  blocks 

* 

$ Arguments  - Z VIEW,  XOFF  , SCALE,  ILABL;  view  selection,  offset,  sealing, 

Y 

■4;  and  partial  draw 

* E X T E R N A i...  R E F F R E N C E S ! 


* 

* r t e r f i...  e m a n a g e:  r » i...  i b r a r y : 


4c;  ANMOD(TCS) DRAWR(TCS) GETLU.(DSP)  MOVEA(TCS)  ....  MOVER  (TCS) 

Y Y 

Y - * 

Y Y 

* SPECIAL!  Y 

Y Y 


* 

Y 


A PPL  I CAT TON 


( N A H E / i::‘  r-  o s r s in  ? S u b r o u t .1.  n e ? 0 R F u n c t i o n > 


DATA  FILES  ACCESSED 


* 

Y 

Y 


Y 

ROTAT / S 

y 

/ 

/....  * 

Y 

_ ./.._ 

..../.... 

/.... 

/....  * 

Y 

./.... 

/ 

/ 

../.... 

./....  y 

Y 

/.... 

....../... 

* 

Y 

/ .... 

/.... 

... / ... 

_../.... 

/ ...  t 

Y 

Y 

Y 


Y 

Y 


YYYYYYYYYYYTYYYYYYYYYTYYYYYYYYTYYYYYYYYYYTYYYYYYYYYYYTYYYYYYTYY YYYYY Y 
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X-  #r  I*  •»  *r  «•  *5-  V:  i Or  *r  & & *•  -X-  *r  * if-  f - ^ 


ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ 


Z 

* SEAMPL.AN  SOFTWARE  DOCUMENTATION  LEVEL  * 

* 

Z 


SEA M PL. AN  SO F T W A R E D 0 C U M E N T A T 1. 0 N 

ROUTINE  NAME  J 


Elm 


* 

% 

Z 


* 

* 

* 

Z 

Z 

* 

* 

* 

* 

Z 

* 

* 

* 

Z 

Z 

Z 

* 

* 

Z 

Z 

t 


REVISION  code: 


LOCATION  / ACCESS  PROCEDURE J 


& INAM 


TYPE 

r 


3 PROGRAM 


[X  3 SUBROUTINE 


I 3 FUNCTION 


GENERAL  DESCRIPTION i 

Interacts  with  user  to  determine  command  source  and  save  file  name, 
as  well  as  the  cycle  control  parameter  (5-53) . 


ACCESSED  BYt 

EXDRG 


linkages: 

COMMON  _ Blank;  M.D.  Labeled. 
Arguments  - MODE,  MTHD 


E X T E R N A L.  R E F E R E N C E S 


* 

* 

* 

Z 

# RTF?  FILE  MANAGER ? LIBRARY! 

£ DATE_  (SYSJ J3POLU  JSYS)_  

Z 

# special: 

% 

Z APPLICATION:  <NAME/Prosfram»  Subroutine y OR 

% 
t 
Z 
% 

% 

Z 


application: 

/.. 

/_ 


< NAME/P ros ram ? 
/_ 


Subroutine y 
/_ 


DATA  FILES  ACCESSED ! 

S ouEce_. Da ta. _ f ile. _(user_.  determined)_ 


AUTHOR! £ 

date: tltl9. i 

% 

z 
z 
* 
t 
% 
* 
% 
* 
t 
% 
% 
% 
* 
* 

* 

* 
* 
& 
* 
% 
t 

z 

% 

* 
dr 



% 

& 

% 
% 

% 

z 

t 
t 
t 

z 

t 

% 
t 


Function) 


% % 

tzztzzzz 1 1 1 tttzz t zztz % % z z zzt t z % % t % % % % z z z z z % z z z z z zzzz z z z z z z z z z zzzzzzzz 
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ZZZZ  z t Z z 1 z % z t z z * z & % % 1 1 z z z z z % z z % zzzz  Z * t Z Z 1 z z * % z 1 zzzzzzzzzz  z % z % z % z zzzt  K 

% 

z SF.  AM  PI.  AN  SOFT  WARP  DOCUMENTATION  LEVEL? 3 

% 

* ROUTINE  NAME? _.._JNLU AUTHOR? — Elm 

Z 

* REVISION  CODE ? DATE? — 8/A6/.Z9. 

Z 

# LOCATION  / ACCESS  PROCEDURE? All'll! _1 

% 

% TYPE? 

# T 3 PROGRAM  T X3  SUBROUTINE  f 3 FUNCTION 

% 

Z GENERAL  DESCRIPTION? 

t 

% INIT1  is  called  to  read  the  #M0D1  file  for  i pass  model  evaluation 

Z if  FLEX  is  run  alone  (ICODE  0 and  IMOD  =1) 


Z 

% 

Z 

% 

Z ACCESSED  BY? 

* 

£ LINKAGES? 

% 

Z COMMON  - Flexible  tolerance,  M1C0M,  T1C0M  blocks 

* 

Z 

Z EXTERNAL  REFERENCES? 


RTF 9 FILE  MANAGER » 
„...SP.0LU....(.S-YS)  


LIBRARY? 


% 

% 

% 
ri 
% 

Z 
z 
% 
z 
z 
z 
z 
z 
z 

t 

% 

% 
t 
t 

% >:< 

% % Z % Z % t % Y 1 1 z t z z z t z z % % z z z z z z z z z z z z z z z z z z z z t z z z z z z z z z z z % z % % % z z z z z z z z > % % 


SPECIAL 


APPLICATION: 


< N A H E / P r o A r a ns  ? 


Subroutine?  OR*  Function) 


/._ 


DATA  FILES 
...„#10DJ 


ACCESSED i 


Y 

t 

Z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

■Jr 

z 

z 

\V 

*r> 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 
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% 

* SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL l — 

* 

* ROUTINE  NAME:„_.JNP.T„.. AUTHOR t_.Wv_La.rson 

X 

X REVISION  CODE  DATE  l 

* LOCATION  / ACCESS  PROCEDURE*...  _.CP_NS  TRUjCT  I ON  J\N.D  ...VIZRJ  F I CAT  ION  _ 

X 

X TYPEt 

* r.xl  PROGRAM  IT  3 SUBROUTINE  C 3 FUNCTION 

X 

X GENERAL  DESCRIPTION: 

& 

jjj  CONVERTS  Type  2 files  (Built  by  program  BUILD)  to  keyed  access  files 

$ for  use  by  the  core  hole  analysis  option  of  Data  Entry  and  Review 


X 

X 

X 

X 

X 

X 

X 

* 

* 

X 

X 


X 

X 

X 

X ACCESSED  BY! 


X 

x linkages: 

X 


X 

X 

X 


X EXTERNAL  REFERENCES  I 
& 

X RTF?  FILE  MANAGER r LIBRARY: 

* _ CLOSE  _(RTE) CLOS K_( % KAFMP ) „ EXEC  (RTE). 

V,  “setup  (%kafmp)  _spolu  (SYS) 


OPEN (RT El 


(EXE). 


special: 


A PPL  H 
BLANK 


X 
X 
X 
X 
X 
X 
X 
X 
% 

% 

X 
% 

% DATA 
% 

X XXXX t X 1 1 X X X X X X X X X X X X X X X X X X X X X X X t XXXX X X X X X X X X X X X XXX X X X XXXX X X X X X X X ' 


'ion: 

< NAME/Prosiran  9 

St.ibroi.it- 3 ne  9 

OR  Function) 

./?. 

/„ 

...  .... 



/ 

./_. 

/„ 

.../_ 

/.„  



/_. 

/ 

/... 

/._ 

f 

/ 

/... 

/... 

/ 

/_  

/__ 

FILES  ACCESSED: 


X 

X 
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3&  -K-  m & & 3$  X-  3$  & 3$  ¥;  *•  3$  'A  X X-  -5£  'X-  -K-  3$  3$  3$  3$  3*  X-  ¥:  3$  X-  34  34  34  X -X-  x- 


* X 

t S E A M P L AM  SOFTWA R E D 0 CUMEN T A T 1 0 N L E V E I.  J A # 

# # 

* ROUTINE  NANEi INTER _ AUTHOR  t 


DATE  l _. 
DATA  ENTRY  AND  REVIEW 


* REVISION  code: 

# 

X LOCATION  / ACCESS  PROCEDURE: 

* 

* type: 

* I I PROGRAM  CX3  SUBROUTINE 

* 

* GENERAL  DESCRIPTION  I 
X 

$ User  interaction  for  test  hole  correlations 

% 

X 

X 

X 

X 

* 

* ACCESSED  BY: 

% GRFF 

* 

* linkages: 

X 

* IX, 1Y, IPLACE,  IANS,  RFLAG,  NAM,  1USER,  1STRT 

X 
X 
X 
X 
% 

X 
>K 

x 

* 

X 


,„N  .__Larson_ 

-57.7?-.. 


f 3 FUNCTION 


* 

...  X 
X 

._  # 
X 
* 
X 
X 


x 

x 

x 

% 

% 

X 

X 

% 

% 

* 

ft 

X 


EXTERNAL  REFERENCES  % 

RTF. ? FILE  MANAGER ? LIBRARY: 

ANMOD(TCSl MpVAB(TCS) 

jS0C.CTCS). MO  VRL  ( TCS  \ ZZ—Z—  1. 

HOME„CTCS)_„  „._SWNDO.(TCSl  _ ~ 

SPECIAL? 

APPLICATION:  <NAHE/Pro3reiriy  Subroutine?  OR  Function) 

DATA  FILES  ACCESSED? 


* 

X 
X 
X 
X 
X 
X 
X 
X 
X 

X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxtxx' 


X 

X 

*fr 

X 

% 

X 

% 

<fsf 


X 

* 

..../...  X 
X 
X 

.../._  X 
X 
X 

A 

X 

X 

’XXXtt 
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t * 

* S E A M P LAN  S 0 F T W A R E D 0 C U M ENT  A T JON  LEVEL  l ll * 

$ $ 

* ROUTINE  NAMES  _._..JNI£. AUTHOR  S — Elra * 

* * 

* REVISION  CODES DATE: S -J3-11 * 

t & 

* LOCATION  / ACCESS  PROCEDURE  J ..... LMI. * 

* % 

% type:  * 

% (I  1 PROGRAM  EX1  SUBROUTINE  C 3 FUNCTION  * 

* * 

* GENERAL  DESCRIPTION:  Originally  named  INT:  * 

* * 

$ Assigns  file  name  to  store  results,  initializes  the  overburden  grid 

# array,  NH,  and  several  simulation  parameters  (5-60)  . He 

% & 

* t 


# 

# 

# 

t 

* 

* 

* 

& 

>K 

t 

* 

% 

& 

* 

t 

t 

* 

t 

a 

% 

& 

% 

% 

% 

% 

% 

% 

% 

'it 


ACCESSED  BY: 
__.DM(L 

linkages: 


EXTERNAL  REFERENCES S 


RTF? 

LEASE  „ 


FILE 

.CT.CS.).. 


MANAGER  s>  LIBRARY: 

I DENT-  -( SY.S..)„  ..SP.QLIL.AS.YSX 


special: 


APPLICATION:  < NAME/P  PDA  rami'  Subrouti  ne>  OR  Function) 


-ML. _./E  „NINX... 

-SHOT /a 

DATA  FXL.ES  ACCESSED: 


./X 

./... 


JPI  MIX /_S  _ POISE. 


-_/S 
/-. 


.SH.GX... 


& 

t 

% 

% 

% 

% 

% 

% 

% 

v»/ 

*£■ 

% 

% 

% 


% 

% 

% 

% 

_„/_s  * 
% 
% 
% 
% 
% 
% 

, * 


ii.  'Si 

M' 
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■ 


;[<  1 1 % Y Y t Y Y Y JK  Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y t Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y :•;:  Y Y Y 

Y Y 

Y S E:  a M I •■'  I...  A N S 0 F T W A R E H f.)  C U M E N T A T 1 0 N 


Y 


LEVEL.: _ Y 

Y 


LINE 


AIJ  IN  OR  : Lehman.. 

DATE  : ..671/7.9... 


* ROUTINE  NAME: 

i 

Y REVISION  CODE  : 

Y 

Y I...  0 C A T 1 0 N / ACC  E S S P R 0 0 E D U R E.  i ...  „ ..M.TLO.T. ...  17.. ,. 

Y 

Y type: 

* c :j  program  rx ;j  subroutine  r.  :j  function 
y 

Y G E.  N E:  IT  A !...  D E S C R I P T 1 0 N i 

Y 

$ Calculates  the  coef f ricients  of  a line  which  passes  through  two 

* 

>{c  points. 

* 

* 

* 

Y 

Y ACCESSED  BY: 

* - - 

Y 

y linkages: 

* 

Y Arguments  are  coordinates  of  points  on  line;  returns  coefficients 

* 

Y of  line. 

Y E X T E R N A L R E F E R E N C E S t 
% 

R T E ? F I L E:  M A N A G E R t L I B R A R Y J 


special.: 


APPLICATION 


( N A M E / P r o s r a m v S u b r o u t i n e v 0 F:  F u n c t :i.  a n ) 


% 

/ 

/ 

- - x - 

/.... 

/ 

Y 

/... 

/ .. 

/ .... 

/ .... 

/ 

Y 



/ 

- .... / .... 

/... 

/ 

/ .... 



Y 

/ .. 

/ ... 

_...../  . 

.../ 

....  /... 

Y 

/_. 

/ 

/_. 

/.._ 

„/... 

Y 

Y D A T A F I L.  E S A C C E S S E D t 

Y .... 

Y 

Y 

yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy y y y y y y y y y y y y y y y y y y y y y y y y y y y y yyy yyyy 
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& •?.£  ^ & & •?.<-  & & & & & .y.  %f.  zy.  .>{.  >y  zy  z,c  ,y±  zy  ^ ^ ^ ^ ^ ^ ^ zy  ^ 


* * * * * x X X X X X X x X X X X X X X X X X X X X X X X X X X X X X X X X XXXX  X X X X X X X X X X X X X X X X X X X X X X X X X x x 
X 

X S F A M p I A N S 0 F T W A R F D 0 C U M I-  N T A T I 0 N 


fuel  : 2. x 


reclamation  subsystem  model  or  well  as  code  added  at  MSU  to  control 
selection  of  the  FLUOR  Micro  Reclamation  Model  (SEAMPLAN  Reclamation 


AUTHOR: Elm x 

X 

DATF: 7/19/79 X 

X 

X 


X 

X ROUTINE  NAME  i EM 

X 

X REVISION  code: 

X 

X LOCATION  / ACCESS  PROCEDURE: &LRS. M*  ADM  or  . RV*SPLAN 

* 

x type: 

X r 3 P R 0 G R A M f X;;i  SO B R 0 IJ  T I N E I"  f!  F 1 1 N C T 1 0 N 

X 

X 0 E N E R A I n E S 0 R I P T T 0 N : 

X 

X LRS  is  the  subroutine  which  contain  the  original  FLUOR  macro 

\l> 

A' 

\l/ 

X 
X 
X 

X level  2)  or  the  CLAIM  program  (level  3) 

X ACCESSED  BYt 

X ...ADM .... 

X 

x I ink ages: 

X 

X ERS  Common  Block 

* 

X LFEC,  LFLP , LOGEC  - grguments  for  logical  units  and  option  palys 

X E X I E R N A !...  R E F E R E N C E S J 

■&* 

A% 

X R T E , F :r !. . F ri  A N A G E R ? I I B R A R Y ; 

X o CHSIZ  (TCS) CODE  (RTF) ERASE (ICS) 

X .'. 


JUJIT1.CT.CS.) 


special: 


APPLICATION: 
. MLRS  /S 


( N A M E / P r a B r & m ? S ■ i b r o i.  1 1 :i.  n e 
/ _/.... 


0 R E 1. 1 n c t i o n ) 


.../... 


../ ... 
/.. 


X DATA  FILES  ACCESSED 

X ...  ELEGRG 


■4/  ‘4y  -4-  4-  '■)/  \K-  'A.--  4-  4--  4/  -4/  <U  4r  •••'/  ‘L-  4*  -4/  4.-  -As  •.}-•  o.-  -.1/  J.-  -a.-  -a  - • a-  a.-  -a.-  • j .•  -.p  j.*  j.-  a.-  a.  -a,-  -a,-  -a  - a ■ -a,  -j.- 

A%  *t*  a--  t-  a**  a-  -o  -T-  A'*  A’-  A-  A-  -t*  a'  A'-  a - A-  A'  a--  a*-  a - A-  A-  A1*  A-  -T-  a%  V-  a'  A‘>  -r-  a - A-  A*-  a - a - ax  A*-  r A - t-  t-  A'  A-  a*  A - -t*  A*  r r-  A**  a**  t-  A*-  a-*  A-  A*  A*  a-  A*  A'--  an  a-  A-  A V. 
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* * 

* SEAMPl.AN  SOFTWARE  DOCUMENTATION  LEVEL J — ...  # 


£ . # 

* ROUTINE  NAME:. ..LUOS AUTHOR : — * 

£ '¥ 

* revision  code: date: „^z}J~ 12. * 

£ 

* LOCATION  / ACCESS  PROCEDURE  l „...“l?.S. 

* 

£ type: 

* r :j  program  c x.i  subroutine  r.  :i  function 

* 

# GENERAL  DESCRIPTION: 
t 

£ Allow  selection  of  post  mine  land  use 

* 

* 

* 

% 

* 

£ ACCESSED  BY: 

X . _ RCLAM_ 

* 

* linkages: 

* 

£ CLAIM  COMMON 

£ Argument  for  returning  planting  cost 

X< 

* EXTERNAL  REFERENCES  J 

* 

# RTE r FILE  MANAGER r LIBRARY* 

t 

* special: 

£ SPOLU 


ft 

application: 

< NAME/P  rosErsm  ? Subroutim??  OR 

Function ) 

ft 

EFC  /S 

.. 



ft 

ALTRN /S 

/_ 

/ 

/ 

/_. 

ft 

/_ 

/_ 

/„.  

/ 

/., 

ft 

/_ 

/.. 

/..  

/... 

/.. 

ft 

ft 

7- 

~~-/- 

- 

— — 

/- 

# DATA  FILES  ACCESSED: 

* RVD 


% t * & M t # t & >K  t & * x<  t % & t t t % t 1 1 % %%&%%%%  & >}(  % & £ t % & t >;<  £ ft  # & £ ft  y & ft  ft  ft ft ft ft ft ft  ft  ft  ft  ft  ft  ft  ft 
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% •££-  •?£■  -i£  -X-  ■54  $$  y<r  •5$  ■5'S-  3$  -K-  *J$  •5*  ^ -X-  ^ -5$  -34  •?£  3$  ■S*  ¥:  1$  3<$  3£  7<r  -3$  ■?£  $$  3$  $$• 


>'ir  7:4 


* % % % % % X X * * X X X x x t X X X X X X X X 1 X X X X X * X X X X X X X * t X X X X X * X X X 1 1 X 1 1 X X % X X X X X X X X % % X X 

x x 

X S If  A H R I A N S 0 !::'  T W A R If  0 0 C U M E N T A T 1 0 N I If  U E L i X 


X 

X R OH T T N E M A M If  l MAKFL ... 

X 

X R E V T S 1 0 N C 0 D E i .. . ± . !.  .9. 


AUTHOR  i Eastman 

DATE: bJ.  W.l „ X 

x , x 

X LOCATION  / ACCESS  PROCEDURE  t X 

X 

x type: 

x rx:i  program  r:  i subroutine  r.  ::i  function 

X 

X GENERAL  DESCRIPTION: 

X 

# Reads  ASCII  X,Y,Z,  data,  sorts  it,  writes  BINARY  X,Y,Z  data. 

if:  X 

X X 

X x 

it:  X 

X X 

X X 

X ACCESSED  by:  * 

X . PENRV . 


I.  INK  ages: 

X Uses  RMPAR  to  determine  user  terminal  Logical  unit, 

if: 

X 

X F X T F R N A L R F F F R E N G E S t 
X 

X R T F.  t F I L.  F.;:  M A N A G E R t I . I B R A R Y i 

X 

X 
X 
X 
X 
X 


SR PCI A I 


X 

A PPL  I CAT  TON: 

(NAME/P ros 

r b rri  •>  S u b r 0 1..1 1 

X 

X 

/.... 

/... 

X 

/ 

/ 



X 

/ 

/... 

/„„ 

X 

/... 

/.... 

X 

X D A T A F 1 1...  E S A C C F S S E D t 

X ASCII  XYZ - 

X 

X 


_ X 

X 

X 

X 

X 

X 

X 

X 

if: 

X 

X 

„ X 

if: 

X 

X 

X 

X 

) X 

/...  X 

/...  X 

X 

/...  x 

/..  x 

X 

if: 

X 

X 

X 


XXX XX XXX X XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXX X 
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7*  ^ 77  77  $$•  >7 


t 

* SEA M P I... A N S 0 F TWA R E DOC U M E N TATI 0 N LE V F L : i 

t 

5Sc  ROUTINE  NAME  J _.  J1A.P1Q... _ .._  AUTHOR  i M-_  Paxton 

* 8/3/79 

* revision  code:- date: 

* 

* LOCATION  / ACCESS  PROCEDURE: MTA_  M9„ .REVIEW 

* 

% type: 

X<  L 3 PROGRAM  Lx3  SUBROUTINE  C 3 FUNCTION 

GENERAL  DESCR I PT ION J 

This  routine  controls  the  opening,  reading,  rewinding,  and  closing 
of  the  continuous  data  files  built  by  CONCN. 


ACCESSED  BY: 
CNTUR 


linkages: 

Parametes  passed  thru  the  common  block  from  PROGRAM  CONCN 


E X T E R N A L R E F E R E N C E S : 

RTE t FILE  MANAGER y LIBRARY: 
_CLOSE  __(RTE)  RWNDF.  (RTE) 

I [open  I sm ) ” 1 1 : „ 1 1 1 1 „ l 

™ _READF  j(RT E ) HIIIIIIII  „ 

special: 


application: 


( NAME/Pro.Aram  t Subroutine  t OR  Function) 


DATA  FILES  ACCESSED: 


* 


/..  * 

/..  % 

t 

* 

* 


t 


98 


* S E A M P L A N SOFT W A R E D 0 C U M E N T A T 1 0 N LEVEL  l 

* ROUTINE  NAME : ..„M.L3_S AUTHOR: 

* 

* revision  code: „ date: 

% 

* LOCATION  / ACCESS  PROCEDURE  J -_L5-5rl 

* 

* type: 

* LX  3 PROGRAM  C 3 SUBROUTINE  C 3 FUNCTION 

* 

* GENERAL  DESCRIPTION  I 
% 

^ Scraper  fleet  size  for  topsoil  removal  and  respreading  (FLUOR  UTAH) 

& dozer  fleet  size  for  overburden  grading  (CLAIM),  as  well  as 
revegetation  estimates  (CLAZM)  are  computed. 

£ 

t 

* 


t ACCESSED  BY? 
LRS 


t linkages: 

>x 

Land  Reclamation  simulation  common 


EX  T E R N A L R E F E R E N C E S : 


RTE 9 FILE 
CHS1Z  _ 

'""code"' 

eraser- 

special: 


MANAGER » 
EXEC 

IDS EG  ' 
IN ITT' 


..IBRARY 


RMPAR 

SPOLJT 


A P P L I C A T 1 0 N : (NAME/  P rosT  a r?< » 


t 

NMLST  / S 

/ 

t 

RCLAM  / P 

/._ 

% 

/ 

/.... 

* 





% 

/„ 

/„ 

Subroutine r 


OR 


Function ) 


/_ 

/_. 


& 

t DA 


(A  FILES  ACCESSED: 
//VNLRS  #VTITL 

#v  nseg“ 


t 
# 

X t 

i<  1 1 A % &'  i<  t % % >!<  $ £ % t % & $ % t & t % A % t t § & t & t * & t & & A t t A & t t £ A & & 1 1 & t & A‘  t & t-  'A  £ t A A >E  A t 'A 
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■yb  'X-  X -j'r  Xr  -X-  X X-  X-  X X -54  X -54  X X-  -X-  -X-  X:  -X?  X-  X -54  -34  -X*  -54  X X-  X-  X ¥c  X-  -5*  X-  X X-  X-  -Yc  *4  X-  X-  X-  -X-  X-  X-  X X-  -X?  X- 


$$  ^ vfr  i'~ 


% >K  * t X X X 1 X X X X X t % * X X X X X X X X X X 1 1 X X X X X X X X X X X X X X X X X X X X X * X X X X X X X * X X X X X X X X X X X 

X 

s f:  a m p l a n s o f t w a r e d o c u m if  n r a t :i:  o n i e v e l : 3 * 

X 

R 0 1 J T ;i;  N F:  N A h E : M0DL A U I H 0 IF  J E lm : ! : 

X 

R E V I S 1 0 N C 0 n E t .... D A T E ♦ 8/6/ 79 _ % 

X 

I...  0 C A T 1 0 N / A C C E S S P R (.)  C E D ( ) R E X &MQDL X 

* • * 
X type:  * 

* r ::i  program  fx;i  bub  routine  f ::i  function  x 

X x 

X G E N E R A I...  1.1  E S C R I P T 1 0 N : * 

X x 

$ MODL  is  called  to  select  this  proper  analysis  model  directly  or  indirectly! 

X X 

>;<  through  the  dynamic  programming  routine,  PITOP.  X 

I X 

x x 

X X 

i x 

X ACCESSED  BY:  X 

X .....FLEX E.TQ.L .WR1.TX SUMR FESBL X 

X X 

* linkages:  x 

x x 

X Arguments  - ZMOD,  Model  (MODI  or  M0D2)  selection  ZCODE,  Model  evaluation 

* X 

X code  % 

% E X T E R N A !..  R E F E R E N C E S i X 

X 

R T E 7 F 1 1...  E M A N A G E R ? I . I B E A R Y % 


X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

X D A T A F 1. 1...  E S A C C E S B E D ♦ 
X 

X 

X 


special: 


A PPL.  I CAT  ION 

DMOPS  / S 


( N A n E / F'  r-  o s r a m v S u h r o u t :i.  n e ? 0 E F u n c t i o n ) 

PITOP  /S 


/ 


-Zniiii/i 


/.... 


X 

X 

X 

X 

X 

X 

X 

X 

X 

/....  X 

/....  * 

.... /.._  X 

/....  X 

/....  X 

X 

X 

X 

X 

■X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX:XXXXX;i::^ 
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-5:-7 


% 

* seamplan  software  documentation  level: 3 

* 

* ROUTINE  NAME: --MOM AUTHOR  J .._  Elm 

t REVISION  code: date: — 8/]_6/79_. 

* 

* LOCATION  / ACCESS  PROCEDURE: &!1Pi?l 


* type: 

* r i program  r.  x-t  subroutine  r.  i function 

* 

* GENERAL  DESCRIPTION: 

* 

# MODI  is  the  single  pan  dragline  model  routine.  It  evaluates  dragline 
& performance  for  a variety  of  1 pass  mining  method  assumming  fixed  coal 

# seam  thickness  and  overburden  depth. 

# 

* 

* 

% 

% ACCESSED  BY: 

<u 

A* 

* linkages: 

* COMMON  - Flexible  tolerance,  M1C0M,  and  T1C0M  blocks. 

* Arguments  - I CODE ; model  evaluation  code. 

% 

« 

5k  EXTERNAL  REFERENCES* 

% 

% RTEr  FILE  MANAGER r LIBRARY ? 


( NAME/P ros? ram i Subroutine*  OR  Function) 


--XIME.I. 


% 

* 

* 

t 

5k 
t 
% 

5k 
t 

* DATA  FILES  ACCESSED: 

t 

5k 

^3tC>k>k5f:5k^5k5(C5kJk5k5k5{Ok5kJfC5k5eC3k5k5f:55r5k)!C$3kJfC5k5!C55t3et^5jC!|tJ|C3k}}:5fC3k5k5k5k5 


special: 


APPLICATION? 
INLT.L._/..S 


./.F 

./.» 

./- 


/. 

./. 

./. 


/. 


: 1 5k  1 1 1 1 x<  5k  >k  * x< 


t 

v?/ 

sp. 

% 

* 

* 

% 

>k 

5k 

5k 

5k 

5k 

t 

* 
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' 


, 


. 


- 


t * 

t SEAMF'LAN  SOFTWARE  DOCUMENTATION  LEVEL. t -3 -.-.- - # 

^ He 

sjc  ROUTINE  NAME  ♦ MQD2 AUTHOR  t IAm * 

.*  He 

He  REVISION  CODE  J DATE  ♦ — S./16X75 # 

He  He 

# LOCATION  / ACCESS  PROCEDURE:..... &T1QD.2 „ t 

t * 

# type:  # 

# C ]l  PROGRAM  nXU  SUBROUTINE  C T FUNCTION  He 


* 


He 

He 

# 

He 

He 

He 

He 

He 

He 

He 

He 


GENERAL  DESCRIPTION:  He 

He 

M0D2  is  the  routine  which  implements  the  two  pass  dragline  model.  t 

Several  methods,  including  tandem  operations  are  possible.  t 

He 

He 

He 

He 

He 

ACCESSED  BY:  He 

DM0  DS * 


He  linkages: 


He 


He 

% COMMON  - Flexible  Tolerance  (IFCOM),  Ml  COM,  M2C0M  and  T2C0M  blocks. 

>$:  Arguments  - ICODE 

He 

# EXTERNAL  REFERENCES: 

He 

# RTF?  FILE  MANAGER r LIBRARY: 


He 


He 

He 

He 

He 


# 

Hi 


He 


He  He 

* special:  He 

He  § 

He  He 

He  APPLICATION:  < NAME/P r os  r am ? Subroutine?  OR  Function)  He 

He  ...... AHAT__/S  „„_ENC_QD„/F  J_IME„  __  / F _...SPNCF_„/.S  ...JYB23 _./S  « 

He  He 

H<  DATA  FILES  ACCESSED:  * 

He  He 


He  He  He  He  H<  He  He  He  He  He  t He  He  He  He  He  He  He  He  He  He  He  H He  He  # He  He  He  He  He  & He  He  t He  He  He  H<  He  He  He  He  He  He  t He  He  He  He  He  He  He  He  He  He  He  He 1 He  He  He  He  He  He  He  He  He  He 
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t * 

ft  SEAMPL  AN  SOFTWARE  DOCUMENTATION  LEVEL  : ...... _./i ft 

ft  ROUTINE  NAME:_iL°^ AUTHOR J ft 

jjf  ^ 

ft  REVISION  CODE.: r«ATE:_.„ — ®1 2}lll % 

ft  ft 

& MOVF 

ft  LOCATION  / ACCESS  PROCEDURE J ft 


ft 

$ type: 

* t 3 PROGRAM 

* 

ft  GENERAL  DESCRIPTION: 
ft 
ft 
* 


IX  3 SUBROUTINE 


C J FUNCTION 


MOVE  controls  the  sequencing  of  the  move  operations  in  the  dragline 
simulator.  Although  originally  the  hopper  and  dragline  were  moved 
in  this  implementation  only  dragline  moves  have  been  tested. 


ft 

ft 

ft 


ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

* 


ft  acces^gby: 


# 

# 


ft  ft 

* linkages:  * 

% * 


* t 

t t 

* t 

ft  EXTERNAL  REFERENCES:  * 

ft  ft 

ft  RTE r FILE  MANAGER ? LIBRARY:  * 

ft  „ERASE_.CTCS)_  ...ident„.(.sysj  _ t 

* ft 

ft  ft 

ft  special:  % 

ft  ft 

ft  ft 

ft  APPLICATION:  < NAME /Pros? ramr  Subroutine?  OR  Function)  ft 

ft  MUSG__/S  J1DAT /S  _____ /_  _____ /__  _____ ft 

ft  ft 

ft  DATA  FILES  ACCESSED:  ft 


ft  ft 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftfcftftftftftftftftftftft 
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4 * 


* 

t 

t 

* 

* 

* 

4c 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

# 

# 

* 

* 

4C 

* 

* 

* 

% 

* 

# 

* 

# 

* 

& 

* 

% 

% 

* 

5SC 

* 

* 

& 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

* 


SEAMPLAN  SOFTWARE  DOCUMENTATION 

ROUTINE  NAME;_2*USG 

REVISION  code: 

LOCATION  / ACCESS  PROCEDURE  J _._.A.H.S.?_ 

type: 

C T PROGRAM  r X3  SUBROUTINE 

GENERAL  DESCRIPTION: 


C :i  FUNCTION 


MUSG  handles  common  functions  associated  with  dragline  moves  in 
the  dragline  simulator.  It  positions  the  bucket  for  a move,  and 
simulates  both  X and  Y direction  steps. 


ACCESSED  BY: 

MOy.E 

linkages: 


EXTERNAL  REFERENCES J 

RTF?  FILE  MANAGER f LIBRARY: 


special: 


APPLICATIONS  < NAME/P ro«f ram  * Subroutine?  OR 


DATA  FILES 


,/„S  ,TPWR„ 

_/s 

/„. 

./.._  

/ 

./ 

/ 

/... 

yi  ::::::; 

_/_ 

_/„ 

1 ! 

V S. 
: i 

f i 
1 ! 
! i 
i i 
i I 
I ! 
; t 

accessed: 

level: 2 

'4c 

AUTHOR  * 

DATE: §I?_5_-79 # 

% 

4c 
4c 
t 
% 
% 
* 
* 
% 
% 
% 
% 
% 
% 
4c 

4c 

% 
% 
4c 
£ 
4c 
4c 
4c 


& 

4c 

vl^ 

'V> 

4c 

4c 

4c 

4c 

4: 

* 

t 

4c 

\L' 

& 

t 

4c 

4< 

4c 

t 

* 


Function  > 

/_ 

/_ 

/ 


_/_ 

/._ 


4c  4c  4c  4c  ^ 4c  ^ ^ ^ ^ ^ ^ 4c  4c  4<  4<  4c  $ 4c  4c  4c  ^ 4c  4<  4c  4<  4c  4<  4c  4c  4:  ^ 4<  * >K  4:  >S  4c  4<  4c  4c  4:  ^ 4c  4c  4c  4c  4c  4c  4c  4c  Jfc  4c  4c  4c  4c  4c  4c  4: 4<  >jc  4c 
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* * 

He  SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL t Z He 

$ $ 

* ROUTINE  name: M _ author: — £i.ni % 


He 

# 

# 

He 

He 

He 

He 

% 

% 

He 

He 

t< 

t 

& 

& 

& 


* 


date: 


% REVISION  code: 

He 

* LOCATION  / ACCESS  PROCEDURE : 

* 

% type: 

* r.  3 PROGRAM  r 3 SUBROUTINE  IX  3 FUNCTION 

He 

He  GENERAL  DESCRIPTION: 


8-25-79 


Retrieves  the  I,  J,  th  element  of  the  NH  array  through  the 
MSU  RTE  III  array  segmentation  scheme. 


t 

* 

# 

* 

5JC 

* 


He  ACCESSED  BYt 

% B CORD ..BFILL 

% SFILL  SPRED 

hc  linkages: 

* 

xe 

% 

He 

He  EXTERNAL  REFERENCES: 

He 

# RTE ? FILE  MANAGER ? LIBRARY: 


t 


BHEEL 


BUCKT 


INTT 


SPECIAL : 


APPLICATION: 


< NAME /Pros*  ram? 


Subroutine t 


OR 


Function ) 


DATA  FILES  ACCESSED: 


* 

* 

He 

He 

% 

He 

He 

He 

He 

He 

He 

He 

* 

■ir 

‘P 

% 

% 

% 

% 

% 

He 

He 

He 

% 

% 

% 

% 


% 

% 

% 

% 

% 

& 

/*•» 

% 

He 

He 

He 

t 


. /..  He 

/ Y 


yV 

-S' 

He 

He 

He 


He  He  He  He  He  He  He  He  He  He  He  He  He  § 3S  He  He  He  He  He  He  He  He  He  He  He  He  # He  He  He  He  He  He  He  He  He  ^ # He  He  He  He  He  He  He  $ He  $ He  He  He  He  He  He  3?c  He  He  He  He  He  $ He  ^ He  3?e  He  He  He 
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1 1 * * t * tttttt * % t % %*t%%*%*%*t%**%*****%%*t%***z%%%* 1 * # 1 1 1 * * % * % t * 1 1 1 * 

t'  # 

t SEAHPLAN  SOFTWARE  DOCUMENTATION  LEVEL « _it_ — * 

t ROUTINE  NAMEt__NJH AUTHOR : ^Lni * 

jj/  % 

t REVISION  CODE.: — PATE:_._^l5./i2. £ 

& &MDIIT1  ^ 

* LOCATION  / ACCESS  PROCEDURE: * 


n 3 SUBROUTINE 


CX3  FUNCTION 


* 
* 
* 
* 
* 

* 
* 

* 
* 
* 
* 

* 

* 
* 
* 
* 
& 
£ 
% 
% 
% 

% 

* 

% 

% 
% 

% 

% 

% 
% 

/_.  % 

/_  % 

._/_  * 

* 

/..  % 

% 
% 

% 

% 

% 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%** 


* 

% type: 

% r 3 PROGRAM 
% 

* GENERAL  DESCRIPTION: 

% 

jj.  Nearest  integer  routine 

* 

% 

% 

% 

% 

% 

% ACCESSED  BY: 

# _DUMP_ INTT 

% 

% linkages: 

% 

% 

% 

% 

t EXTERNAL  REFERENCES: 

% 

% RTE?  FILE  MANAGER ? LIBRARY  I 
% 


% 

& 

* 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% DATA  FILES  ACCESSED  I 

# . 

% 

D 


special: 


APPLICATION: 

/_ 

/... 


( NAME/P rod ran ? Subroutine?  OR  Function) 


/.. 
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* 4 * 

* SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL! % 

* NINT  Elm 

* ROUTINE  NAME  i AUTHOR  * __ # 

* o oc  -,«  % 

* revision  code: _ 


# 


h MDUT2 


datf.j ?:i5_~Z? * 

t 


* LOCATION  / ACCESS  PROCEDURE: 

* 

% type: 

* z 1 PROGRAM  r 3 SUBROUTINE 

% 

* GENERAL  DESCRIPTION: 

* 

$ Nearest  integer  routine 

# 

* 

* 

* 

$ 

* 

t ACCESSED  BY: 

# ....DUMP mix 

% 

# linkages: 

# 

& 

& 

& 

# EXTERNAL  REFERENCES: 
t 

& RTF v FILE  MANAGER r LIBRARY: 
t 

special: 


EX  3 FUNCTION 


APPLICATION:  ( N A M E / P r o ss  r a fTi  y Subroutins»  OR  Function) 


BATA  FILES  ACCESSED! 


./_ 

..A. 

.A. 

A. 


_ A 


A 

A 

,__A 

A 

/ 


* 

# 

# 

* 

* 

v*/ 

* 

# 

$ 

* 

# 

* 

* 

& 

# 

# 

* 

* 

# 

# 

* 

# 

& 

* 

X< 

# 

* 

* 

* 


& 

# 

* 

# 

# 

* 
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£r  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  55  54545454  54  5454  54  54  54  54  54  54  ?h  & 


% % % % * % % % t X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X * X X X X X X X X X X<  X X x.  X X X X X X X •;!<  X X X X X X 


X 

c jr  a M P I A N 9. 0 F T W A R F D 0 C U M E N T A T I 0 N I E E ' ? X 

X 

R n 1 1 T T N E N A M E ? NMPRX A U T H 0 R ? Lehman % 

X 


REV!  S T ON  CODE  ? ..  il.9 ...... DATE  ? P./.U. 7.? 

I 0 c A T I n N / A C 0 E S S P R 0 C E DU R E ? . &N.MPRX 

TYPE  ? 

r xi  program  r:  i subroutine  r ::i  function 

GENERAL  DESCRIPTION? 

Constructs  a square  grid  system  over  an  area  described  by  input  X,Y,Z 
data  points. 


ACCESSED  BY  ? 

..  DENRV „ 1 

I.  INK  AGES  ? 

Uses  RMPAR  to  determine  user  terminal  logical  unit. 


EXTERNAL  REFERENCES? 


RTF , FILE  MANAGER  ? I I DR ARY? 

. RMPAR GREAT .READE WRITE .CLOSE 

X ...PURGE 

X _ 

X 

X SPECIAL? 


X 


X 

X 

X ( APPLICATION?  ( NAME/P  roa  ram  ? S'  ibroui,  i.ne  ? OR  Function  ) 


X 

X 

...SMS... 

/ P 

STMBI..../P. 

/..., 

S.TMNU /P 

/„. 

STMB.V../.P 

STMBZ S 

X 

Y 



/.... 

/.. 

/ 

/ 

/... 

/ 

X 

/.. 

/. 

/.... 



. / 

/... 

X 

X 

DATA  FILE 

S ACCESSED? 

X 

X 

BINARY 

XYZ 

GRID _ 

$.X.WKFL 





X 


X 


X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
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34  54  54  54  54  54  54  54  54  -54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54545454  $4  54  545454 


*£  X X X -X-  *r  ->?  *$•  ■»  -X-  X-  X-  X-  X-  X 


X XXXXXXXXX  X X X * >!<  * * * * # # XXXXXXXXX  X X X X X t X t X X X XXXXX  X X X t X X X X X X X t X X X X X X X X X X X 
X X 

X SEAMPL.AN  SOFTWARE  DOCUMENT  AT  I ON  LEVEL.: t 

d/ 

* ROUTINE  namej.__.9M author: 9M x 

X X 

x revision  code: __  date: ®: 15~12 * 

x x 

X LOCATION  / ACCESS  PROCEDURE : __.iL.OBR # 


X 

x type: 

$ r 3 PROGRAM 
X 

X GENERAL  DESCRIPTION: 
X 


1X3  SUBROUTINE 


C.  3 FUNCTION 


X 
X 
X 
X 
X 
X 
X 

X ACCESSED  by: 

X ___9M 

X 

x linkages: 


Controls  sequencing  of  simulated  work  elements  to  perform 
overburden  to  spoil,  bench  removal,  and  bench  fill  operations. 


BNR 


BFL 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 

X 

X 

X 

X 


EXTERNAL 

RTF t FILE  MANAGER ? 
_sP0Ly_ji_SYS2 


SPECIAL 


library: 


application: 

BCORD /S 

DUMP / S 


< NAME/Pro^ram  ? Subroutine  * 
J8FILL _ / S BHEEL /S 

_Iqmx  ._!/_$  Ssiiiji /s 


OF:  Function) 

,_BPWR /S 

.JSWGA /S 


DIG__ 

TPWR 


.A. 

A. 


DATA  FILES  ACCESSED: 


* 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

t 

X 

X 

yff 

X 

X 

X 

X 

X 

X 


X 

xxxxxtxxxxxxtxxxxxx X X X X X X X X X X X X X X X X xxxx X X X X X t X X X X xxxx X X XXX X X X XX XX X 
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$ 

* SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL  t L 

X 

* ROUTINE  NAMEJ—°?H 


AUTHOR! Elm 

DATE:-- E-25-_79_ 


& OBRF 


C 3 FUNCTION 


* 

* REVISION  CODE: : 

* 

X LOCATION  / ACCESS  PROCEDURE: 

* 

x type: 

# C 3 PROGRAM  CX  3 SUBROUTINE 

* 

# GENERAL  DESCRIPTION: 

* 

ji.  Writes  overburden  removal  totals  to  the  line  printer  when 

£ appropriate. 

* 

X 

X 

X 

X 

X ACCESSED  BY: 

% _OBS__ 

X 

x linkages: 

* 

* 

X 


x external  references: 

X 

X RTF 9 FILE  MANAGER?  LIBRARY: 

X EMSE__(TCS)_  ..IDENTJSYS) 

X 

£ 

* 

X 
X 
X 
X 
X 
X 
X 
X 
X 


special: 


APPLICATION 
AOBR  / 


(NAME/Pro^ram y Subroutine?  OR  Function) 


& 

X DATA  FILES  ACCESSED  * 

$ LUG  - assignment  _varies_ 

* 





xxxxxxxxx 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

% 

% 

% 

X- 

% 

% 

% 

X 

X 

X 

X 

* 

X 

X 

X 

X 
X 
X 
X 

X 
X 
t 
X 

t 

* 


/. 

./. 


& 

XXXXXX X X X X X X X X X X X XXXXXX X XX XX X X X X X xxxxxx X X X X X t t X X X X X X X t t xxxxtxxx X X X X X t 
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ft 

ft  SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL  ? A — 

ft 

ft  ROUTINE  NAME:__P_b£I. AUTHOR ?„_. Elm 

ft 

ft  REVISION  CODE  ? - DATE  ? 8-25-79 

ft 


ft  LOCATION  / ACCESS  PROCEDURE? A_PBM _ _ 

ft 

ft  TYPE? 

ft  C 3 PROGRAM  I.  x3  SUBROUTINE  I.  3 FUNCTION 

& 

* GENERAL  DESCRIPTION? 
ft 

^ OBRI  initializes  variables  such  as  starting  spoil  height,  cycle  time, 

% etc.  for  each  removal  operation  performed  during  the  dragline 

% simulation. 

* 
ft 
* 


* 

ft 

ft 

ft 

* 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 


ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 


ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 


ACCESSED  BY? 
OBR 


LINKAGES? 


EXTERNAL.  REFERENCES  ? 

RTEf  FILE  MANAGER  ? LIBRARY? 


SPECIAL 


APPLICATION? 
___  RTHIA  _ /S 


DATA  FILES  ACCESSED? 


( NAME/ProsSrsm  ? 


Sub rout i ns ? 


OR 


Function ) 


/_ 


ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 


ft 

ft 

ft 


ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

yt\ 

>k 

ft 


¥ 

ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  § $ ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  >k  ft  ft  ft  ft  >k  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft 


in 


# % 

* SEAHPLAN  SOFTWARE  DOCUMENTATION  LEVEL.: A * 

t * 

AUTHOR? 5.1m 3jc 


* ROUTINE  NAME.:.— 2?£ 

X 

* REVISION  code: : 

* 

# LOCATION  / ACCESS  PROCEDURE : JiBJL_.. 

* 

* type: 

* C 3 PROGRAM  EX 3 SUBROUTINE 

$ 

* GENERAL  DESCRIPTION: 


DATE : 8-2_5-79 


C 3 FUNCTION 


Controls  overburden  removal  operations,  digging  and  dumping  on  the 
spoil  pile.  (Hopper  dumps  not  implemented  at  MSU.) 


* 

* 

% 

% 

% 

% 

* ACCESSED  BY; 

* BRA£L 

t 

* linkages: 

* 

% 


* 

% 

t 

% 

* 

% 

*< 

% 

% 

# 

& 

* 

* 

* 

t 

% 

t 

* 

# 

* 

% 

*r 

# 


* 

* external  references: 

* 

# RTEr  FILE  MANAGER ? LIBRARY; 

# 


special: 


application: 

OBR 


(NAME/Pro^ram?  Subroutine r OR  Function) 


* 

# 

& 

% 


% 

% 

% 

% 

% 


* 

& 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

* \ 

% 

% 

% 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


_/_S  OBRF_ 

_/§. 



/_ 

/.. 

/ 

/ 

/ 

/ 

/ 

_ / , 

_./._ 

/... 

/ 

/ 

...  /... 



/_. 



— 

_./ 



:s  accessed; 

% 

% 

% 

% 

% 

% 

* 

% 

& 
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* * 1 * * * * ****** * * * ******** t **** * ***** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

* 

SEAMF'LAN  SOFTWARE  DOCUMENTATION  LEVEL ! 1 * 

OPDFM 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

%!> 

A* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

* 


& OPDFM 


ROUTINE  NAME ! 

REVISION  cofie:_ 

LOCATION  / ACCESS  PROCEDURE! 

TYPE! 

L 3 PROGRAM  CX3  SUBROUTINE 

GENERAL  DESCRIPTION ! 


LEVEL!.. 

AUTHOR! 


4 

Elm 


8-25-79 

DATE! * 

* 

* 
* 
* 


C 3 FUNCTION 


Formats  operation  data  table  when  a line  printer  listing 
is  requested. 


ACCESSED  BY! 
PROPD 


INKA6ES ! 


EXTERNAL  REFERENCES: 


RTE 9 FILE  MANAGER ? LIBRARY! 
CODE  (RTE) 


SPECIAL! 


APPLICATION! 

/._ 

/_. 


DATA  FILES  ACCESSED: 


( NAME/P ros$ ram s>  Subroutine?  OR  Function) 


/. 


/.... 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

... * 

* 

* 

* 

t 

* 

* 

* 

* 

.„/_  * 


* 

* 

* 

t 

& 

* 

* 


********************************************************************* 
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I 


******** * * * ***** * * * * * ******** * * * * * * * * * * * ****** * * * * * * * * * * * * * * * * * * * * * $ * 
* . * 


OPDUP 


* SEAMPLAN  SOFTWARE  DOCUMENTATION 

* 

* ROUTINE  NAME 

* 

* REVISION  CODE J 

* 


LEVEL  ! I * 

* 

author:—™ * 

date: 5i?_5rZ:L * 

* 


* LOCATION  / ACCESS  PROCEDURE l . - * 


r *1  SUBROUTINE 


C 1 FUNCTION 


* 

* type: 

* LI  PROGRAM 

* 

* GENERAL  DESCRIPTION: 

* 

£ Controls  update  and  entry  of  operation  data  for  the  dragline 

% simulator. 

* 

* 

* 

* 

* 

* ACCESSED  BY: 

* PPSEQ 

* 

* linkages: 

* 

* 

* 

* 

* EXTERNAL  REFERENCES: 

* 

RTEf  FILE  MANAGER ? LIBRARY: 

.ERASE  (TCS)_  HOME  _.(TCS)  _ 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

‘S' 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SPECIAL; 


APP 


< NAME/Prodrans r Subroutine?  OR  Function) 


* 
* 

* 

* 
* 

* 

* 

/..  * 

/_  * 

/_.  * 

* 
* 

* 

* 

********************************************************************* 


OD-jT* 


/... 

/... 


..  „/„ 

/ 

/ ... 


* DATA  FILES  ACCESSED! 

* 
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54  54 


t X X * * X X X X X X X X X * X X X X X X X 1 X X X * X X X t X X X X X X X X X * X X X x X X t X X x X x X X X X X X X X X X X X-  X X X X 
X 

X S E A M P I A N S 0 F T M A R E D 0 C U iM  F N T A T I 0 N ! . E A F I.  5 

X 

X R OUT  T M e N A M E ; OPRAT A 1 1 T H 0 R i C earners 

X 

X REV  I B I ON  CODE  J .1,  0. DATE  t ...6/1/79 

X 

X LOCATION  / ACCESS  PROCEDURE  1 &OPRAT  file ...... _ 

* 

x type: 

* | X :i  PROGRAM  f :i  SUBROUTINE  r .1  FUNCTION 

X 

X GENERAL  DESCRIPTION: 

X 

X Performs  arithmetic  operation  on  grid  or  X,Y,Z  data. 

X 
X 

x 

X. 

X 
X. 

X ACCESSED  by: 

* DENRV  

X 

X 1.  INK  ages: 

X 

X Retrieves  user  terminal  logical  unit 

X 

X using  RMPAR 

X E X T E R N A !. . R E F E R E N C E S i 
X 

X R T E , F 1 1...  E M A N A G E R , I . I B R A R Y J 

X .....RMPAR 

X .. ....._ .._ 

X 

x special: 

X SP.0LU _ 

* 

X 

X A p p i . T n A T T 0 N : ( N A M E / P r o 0 r a iri  ? Su b r o u 1 1 n e ? 0 R Fun c t i o n > 

X / / / / /... 

X / ...../ / / /.... 

X _ /...  / .....A...  / /... 

X / / / / ./. 

* 

X n A T A F T !...  E S A C C E S S F D t 

X 


XXXXXXXXXXXXXX  X $ X X X X X X X.  X X t $ X X X X X X X X #:  X X X X * * & & X *:  X X X X X X X X X X X X X X X X $ X 3 X X X 
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3*  3*  54  T?  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  1*  & & & 54  54  54  54  54  54  54  54  54  54  54  54  54  54  54-  54  54  54  54  54 


*******************  * * ***  * * *****  * * * * ****  * * * *****  * * % ******  * * 1 1 ****  * t * * * 

$ * 

* SEAM  PL  AN  SOFTWARE  DOCUMENTATION  LEVELS *1 * 

* # 

* ROUTINE  NAME l „9?.tL?.Q AUTHORS — — * 

* * 

* revision  code; date; _i2_5rZ2 * 

* * 

* L OCATION  / ACCESS  PROCEDURE  S . — Z_2LSJ?S ~ * 

* * 

* type:  * 

* LI  PROGRAM  LX3  SUBROUTINE  C 3 FUNCTION  # 

* * 

* GENERAL  DESCRIPTION:  * 

* * 

^ This  routine  controls  display  and  update  of  operation  sequence  and  ^ 

$ parameter  data  for  the  dragline  simulator.  $ 

* * 

* * 

* * 

* * 

* * 

* ACCESSED  BY:  * 

* ...-DAIA t 

* * 

* linkages: 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


external  references ; 

RTF?  FILE  MANAGER f LIBRARY: 

?MSE...LTCSi„  _H0UEJTCS)_. 


special: 


application: 

_ DSPOD  _ ,/S 
_/_ 


< NAME/P rosErsm ? Subroutine?  OR  Function) 


pSPSO /_S 


DSSAC / S 

/ 


_qppup__  _/S 
/_. 


PROPD 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

•it 

% 

% 

* 

% 


% 

./._S  * 


* 

/_  & 


/. 


$ 

* 


* DATA  FILES  ACCESSED:  * 

* _.„_Qpe ration  data__file_ _ * 

* ife 

* * * * * * * * * * * * * * * * * * * *** * * * * * * * * * ************ * **** * **** t * * * * t * * * * * * * * * * 
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SEAM P I. . A N S □ F T W A R E D 0 C U M E N T A T T 0 N 


ROUTINE  NAME. 


REVISION  CODE 


.OTLN 


LEVEL 


author:. 


DATE 


M.  Wagner 


.8/.3/J9. 


LOCATION  / ACCESS  PROCEDURE 


..  DATA.  _EN.TRY..  ..AND  .-.REVIEW . 


TYPE 

r 


.1  PROGRAM 


Tx 1 SUBROUTINE 


T 1 FUNCTION 


GENERAL  DESCRIPTION i 

This  subroutine  is  designed  to  draw  an  outline  of map  it  appears 
on  the  digitizing  tablet. 


& t * 1 1 ******  t * t * * * * * **********  * t * * * He  He  * % He  * t # % t He  t He  * He  He  * He  He  He  He  He  t He  He  He  He  He  He  He  He 

He 
He 
>5: 

He 
He 
He 
He 
He 
He 
He 
He 
He 
* 
t 
He 
He 
He 
He 
He 
He 
He 
He 
He 
He 
He 
# 
He 
He 
He 
He 
He 
He 
He 
* 
He 
He 
He 
He 
He 
He 
He 
He 
He 


He 

He 

He 

He 

# 

He 

He 

He 

He 

* 

He 

H< 

He 

# 

He 

He 

He 

He 

* 

He 

He 

He 

He 

He 

He 

He 

He 

He 

•V* 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

t 

He 

He 

He 

He 

He 

He 


ACCESSED  BY? 

... ...  a LI-  ..digit  i zing,  -input.  _r  ou  t ines_ 


INK AGES J 
XMLL, 


YMLL  , XMLR , YMLR,  DX4 , DY4  (Described  within  the  program) 


EXTERNAL  REFERENCES : 

RTE f FILE  MANAGER » LIBRARY 

DELL (.TCS)  miTT-XT.CS)  . 

DRWAB--XTCS)  MQVAEL.-.(T-CS)  . 

DRWRL--(ICS)  

SPECIAL l 


APPL.  T C AT  I.  ON  I < NAME/Pr od  r am » 
DATA  FILES  ACCESSED? 


Subroutine  * 


OR 


Function ) 


./... 

./... 

./... 


He 

He 

He 

He 

He 

* 


********************************************************************* 
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9k  9k 


X % X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X Y X X X & X X X X >!<  X X X X X X X X * x X X X X X X X X X X X X t 

S E A M P I...  A N S 0 F T W A R E D 0 C U M E N T A T 1 0 N L E V E L S 

A U T I I 0 R S Lehman 

D A T E t 6/1/  79  


OUTLN 


* ROUTINE  NAME: 

X 

X REVISION  C0DES..-:k.9. 

>!< 

X I. . 0 C A T 1 0 N / A C C E 3 S P R 0 C E D IJ  R E S &PTLOT  1 7 „.  _ 

* 

* TYPES 

)k  i:  :i  program  r.:x:i  subroutine  l :i  function 

X 

X G E N E R A L D E S C R I P T 1 0 N S 
X 

X Draws  a polygon 

X 
X 
X- 
X 

x; 

X 

X ACCESSED  BYS 

* „..  PTLQT — 

X 

X I..  INK  AGES  S 

iv? 

$ Arguments  include  vertex  coordinates  and  the  number  of  vertix. 

X 

X 

X E X T E R N A L R E F E IT  E N C E S S 
X 

X RTE  » FILE  MANAGER  •/  LIBRARY'S 

Y 

X ...._ 

X _ _ 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

X D A T A F I L E S A C C E S S E D S 

X -— - - 

X _ 

x y 


SPECIALS 

_.TCS— 


APPLICATION 
/... 


( N A M E / P r o s r a m * S u b r o u t i n e y 0 IT:  F u n c i :i.  o n ) 


/ _ 

_.... / .... 


/ 

.H.  - / .... 

/ 

/ .... 

/ 
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**  * * ^ ^ * ■*  & & -5*  * # **  & 9k  9k  9k  9k  9k  9k  9k  9<k  9k  9k  9k  9k  9k  9k  9k  9k  9k  9k  9k  9k  9k  9k  9k  9k  9k  9 k -k  9k  9k  9k  9k 


t X X XXX  X X X X t X x x xxxxxxxxxxxxxxxx  x x x x xxtxtx  X X X X X X X 1 1 1 x 1 1 1 X X X X X X % x X X XXXX  X 


PFILE 


X 

X SEAM  PL.  AN  SOFTWARE  DOCUMENT  AT  JON 
X 

X ROUTINE  NAME: 

# 

* REVISION  code:... 
t 


level:_. 

AUTHOR : . 

date:..-. 


4 

Elm 

8-25-79 


* 

t 

X 

t 

X 

X 

X 


r PVTT  F 

* LOCATION  / ACCESS  PROCEDURE - X 


X 

x type: 

X r.  2 PROGRAM 
X 

X GENERAL  DESCRIPTION: 
X 


Ex]  SUBROUTINE 


C 3 FUNCTION 


Puts  results  in  the  dragline  simulation  SAVE  file  (specified  by 
user  to  INAM)  following  each  operation. 


* 

X 
X 
X 
X 
X 
X 

t ACCESSED  BY: 

DRAG 

# 

X 
X 
X 
X 
X 

X EXTERNAL  REFERENCES? 


INKAGES  t 


X 

X 

X 

X 

X 

X 


RTF t FILE  MANAGER r LIBRARY: 


_CODE__(RTE)_. 


special: 


. § P O LU ...  ( SYS  } 


X 

X 

X 

X 


DATA  FILES  ACCESSED: 

" S AVE1 f i le_  (us  e_r__  as  signed  jaame). . 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 

. 

- — — — 

! i 
! > 
I ! 
! ! 
! i 
! ! 
i I 
! i 
i i 

— 

— 

* 

X 

X 

X 

application: 

< NAME/P  rosirani  r 

Sub rout i ne » 

OR  Function) 

X 

X 

X 

_ /... 

/_.  

/_. 

/.. 

...  ..  ...  . 

_ — / 

X 

X 

/_ 

/_,  

/_ 

/... 

..  . ...  „ . 

/... 

X 

X 

/„ 

/_  

/... 

- /_. 

/.. 

X 

X 

/... 

/_  

/.. 

/_. 

. . .rrr  - 

/_ 

X 

X 



/ 

/ 

/_ 

X 

X 

X 

X 

x 

X 


xxxxxxxxxxxxxxxxxxxxxxttxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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X X X X X X X-  X -X"  X X X-  X X X-  X*  X X X X X X X 


* * 1 1 1 tttt  % 1 1 1 & t *%*$*%%*%%  1 1 1 % * * t % & & t * & 1 1 % 1 1 1 1 1 * % t & t * t % % * % 1 1 % 1 1 >s  % t % % % % 

% , * 

* SEAMPL.AN  SOFTWARE  DOCUMENTATION  LEVEL ♦ 1 * 

% t- 

t ROUTINE  NAME  i .£5i£ AUTHOR  J — Si™ # 

* # 

# revision  code: date: # 

% &■ 

* LOCATION  / ACCESS  PROCEDURE : % 


* 

% type: 

* C 2 PROGRAM  C X 3 SUBROUTINE 

* 

% GENERAL  DESCRIPTION: 


C 2 FUNCTION 


Called  by  INTT  to  initialize  the  overburden  grid  array,  NH. 


* 

* 

% 

% 

% ACCESSED  BY: 
* INTT 


t 

# linkages: 


external  references: 


RTF ? FILE  MANAGER r LIBRARY: 


* 

% 

* 

% 

* 

% 

& 

* 

% 

£ 

$ 

% 

# 

* 

% 

£ 

& 

$ 

% 

t 

# 

% 

t 

# 


special: 


APPLICATION: 
P.UTNH / S 


( NAME/Program r Subrout i ne i 


OR  Function) 

/ 


% 

£ 

* 

# 

>;< 

& 

* 

./„  * 
./...  % 
% 

./_  >:< 


data  files  accessed: 


& t 
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* X X X X X X X X X X X X X X X >K  1 X X X X X X X % X X X X X >!<  X X X X X X X X X X X X X t X X X X X % X X X X X * X X X X X % X X X * X 

X X 

* S E A M F:’  I.  A N S 0 F T W A R E D 0 C U M E N T A T 1 0 N L E V E L i 3_ * 

/((  $ 

* R 0 U T I N E N A M E i ....  „;?ITDN _.  A U T H 0 R t _ ...  .Jim _.  „ * 

j/  >;< 

* REVISION  code; date;.... JJ.3Q.Ll9. * 

% # 

* LOCATION  / A C C E S S P R 0 C E D U R E J &PIIPN  ...file..../..  ..RV.,  ...SPAN X 

X * 

T T Y F:'  E < 

* r;  :i  program  f:x:i  subroutine  r.  :i  function  x 

X X 

* GENERAL  DESCRIPTION;  * 

* * 

X PITION  is  the  2nd  level  dragline  design  executive.  It.  manages  model  X 

* * 

X evaluation,  optimization  and  graphical  display.  X 

X X 

X * 

X X 

X X 

X ACCESSED  BY;  * 

* ..DLS.2 X 

& X 

X LINKAGES;  Tektronix  Common;  X 

X MODI  - Common  Block  (single  pass  model)  X 

X X 

X M0D2  - Common  block  ( 2 pass  model)  X 

X X 

X E X T E R N A !..  R E F E R E N C E S t X 

X X 

X RTE  •>  FILE  MANAGER y LIBRARY;  X 

X ..CHSIZ(TCS). ERASECTCS)  HO.ME.CTCS)  IQWAI.(TCS)  * 

X X 

X * 

X X 

X SPECIAL..;  X 

X X 

X X 

X X 

X APPLICATION;  (N  AH  E/p  i-osrsnu  Subroutine?  OR  Function)  X 

X ...ANALY. ,_./..S  CNSTR. , S.  ...... ..D.IAGR , S ELEX / S ...USER /S.  X 

X /...  /_.  /_  /_  X 

X X 

X DATA  FILES  ACCESSED;  None  X 

X X 

X _ ; X 

X X 

ife:  ^ *4c  ^ t ^ ^ ^ ^ >K  X # * X $ * X £ X X X * X 'X  X 'X  XXX^X  X X X X X X X X X X X X $ X XX  XX  X X X X 
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& -K-  -x-  ->$■  -:<•  -K-  %.  ><. 


* * t X »:  # * * * t & £ t X X t X X X * * * XXXXXXXXX  X * XXXX  * X X X X X * 1 X £ * X X * t * * 

X 

* SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL ! .—..2 

* 

* ROUTINE  NAME: PIXD.P AUTHOR ! _JSJ.ni 

% 

* revision  code: date:  — &LVJ29. 

jjc 

* LOCATION  / ACCESS  PROCEDURE: &PITDP___ 

* 

^ type: 

X C 3 PROGRAM  T x3  SUBROUTINE  C.  3 FUNCTION 

* 

X GENERAL  DESCRIPTION! 

X 

% PITDP  controls  the  dynamic  programming  solution  for  multiple  pit 

$ widths. 

* 

X 

* 

* 

X 

X ACCESSED  BY! 

* .MODI, 

X 

x linkages: 
x 

X COMMON  - IFCOM,  M1C0M,  M2 COM,  DPC0M1,  DP COM 2 blocks 

X ARGUMENTS  --  IMOD  (dragline-model  code) 

EXTERNAL  REFERENCES ! 

RTE ? FILE  MANAGER t LIBRARY! 

-EXECIRTE} ..PlfPAR_(RTEj>. 


****** 

* 

* 

* 

* 

X 

* 

* 

* 

* 

* 

* 

X 

x 

* 

* 

x 

x 

x 

* 

* 

x 


SPECIAL.: 


APPLICATION:  < NAME/Prosfrstri * Subrout i ne f OR  Function) 


/S 

GETD  / S 

RETRN  / S 

/ 

/_. 

/ 

/ 

/ 

/_ 

* 

X 

X 

vV 

t 

X 

X 

X 

X 

X 

* 

* 

____  * 
XV 

X 

£ 

* 

X 

X 

/_  X 
./_  * 


DATA  FILES  ACCESSED! 
SCFIL 


X X £ * * * * * X X t % % % % % % % % * X X * £ X X X X * X * * Xtt  X X * * XV  * * * * X X **********  * 1 * * X * * ' 


* 
* 
X 
X 
X 

X 

* 

X 

:***** 
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*•  %%**.  X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X x * X X X X X X X X X X X X X X X X X X X X x X X 


X X 

X s F A M P I A N 8 G F T W A R F D 0 C U M F r I T A T 1 0 N I. . E V F I ...  J * 

* ' * 

X R G U T I N E N A M E i . . ..PLTCN - A I J T H G R ? . ...  Lehma  n # 

X X 

X R E M 1 8 1 0 N C 0 D E ♦ .1.0 D A T E t .6 1.1/19 X 

X X 

X LOCATION  / ACCESS  PROCEDURE  * &.CN.TRG. file X 

X X 

X TYPE  i X 

x r:  i program  rx  i subroutine  r:  :i  function  x 

X X 

X G E N E R A I...  D F 8 C R I P 1 1 0 N 4 * 

X X 

X Contours  an  area  represented  by  a grid  of  "Z"  values.  X 

X X 

X X 

X X 

X X 

X X 

X X 

X ACCESSED  BY4,  X 

X CNTRG 

X 


X I.  INK  AGES  4 X. 

X X 


* 

Called  by  CNTRG;  uses 

; tektronix 

common  block; 

other  parameters  passed 

X 

* 

X 

X 

as  arguments. 

A< 

X 

F X T E R N A 1 ..  R E F F R F N C F S 1 

X 

X 

X 

X 

RTF  ? FILE  MANAGER? 

i...  i dr  ary: 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

special: 

X 

X 

X 

TCS  DSP 

X 

* 

X 

X 

X 

A P P I.IC  A T 1 0 N 4 < NA  M E / P r o sf  r a m ? 

Sub  rout j no  ? 

OR  Fun oil on ) 

X 

X 

OUTLN  /S 

/ 

,../ 

/ 

/ 

X 

X 

/ : 

/ 

/ 

/ 

..../.. 

X 

t 

J- 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/..  

/ 

/ 

X 

J- 

X 

•T- 

X 

X 

X 

X 

DATA  FILES  ACCESSED: 

X 

X 

X 

X 

X 

X X 

123 


$0 


* 5c 


t X X X X X * X X X x t X X X X X X X X X X X X X X X X X X X X X X X X X X X X X x X X X X X X X X X X X X X X X X X X X x X X X X X X X 


$ F A M P I A N S n F T W A P F D 0 C { J M !:::  N T A T T 0 N I F U F I ? 

Hi 

X R 0 { l T T N F N A M E X . ..  PLT3D  - A t ! T H 0 R J Lehman 

X 

X RFU I S T ON  CODE  J 1,0 DATE  X . 6/1/79  

X 

He  !..  0 C A T 1 0 N / A C C F S B P R 0 C F .0 1. J R F X &P.LT3D ...file 

X 

x type: 

Hi  r:  :i  program  rx;i  subroutine  r:  :.i  function 

X 

X G E N F R A I . n F S C R I P T 1 0 N X 
X 

H<  Produces  three  dimensional  plots  with  rotations  and  hidden  line 

Hi 

Hi  removal. 

X 

X 

X 

Hi 

X ACCESSED  BY | 

X TRD CS3.DD - 


X 

Hi 

Hi 

Hi 

X 

X 

X 

X 


I INK AGES  X 


Called  with  viewing  postion  arguments. 
EXTERNAL  REFERENCES  X 


X R T E , F I L E M A N A G E R ■>  I.I  B R A R Y X 
X 

Hi  

X 


X 

'1-* 

SPECIAL  X 

Hi 

•T- 

Y 

X 

Y 

X 

X 

APPI.  I CAT  ION  X 

(NAME/ Pros* 

r 5?  iii  ? Subroutine 

? OR  F-unction) 

X 

X 

/.. 

/ 

/ 

/.... 

X 

X 

/.. 



X 

Hi 

/... 

’ ./.... 

/ 

/ 

X 

X 

/.... 



/ 

/ 

Hi 

X 

/ 

. / 



/ 

/ 

Hi 

X X 


X BATA  FILES  ACCESSED  X X 

X Hi 

Hi  Hi 

Hi  Y Y Y Hi  Hi  Hi  Y Hi  Hi  Hi  Hi  Hi  Hi  Y ^ Y Y # Hi  Hi  Hi  W Hi  Y H<  Y Y Hi  Y He  H<  T Hi  Hf  Hi  Hi  ^ Y Hi  Hi  Y Hi  Hi  Hi  Y Y Y Hi  Hi  Hi  Hi  Hi  Y Hi  Hi  Hi  Hi  Hi  Hi  Hi  Hi  X X X X 
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54  54  54  54  54  54  54  54  54  54  54  54  54-  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54  54' 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXtXXXXXXXXXXXXXXXXXXtXXXXXXXXXXXXXXXXXtX 


X 

X 

t 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

t 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


SEAMPLAN  SOFTWARE  DOCUMENTATION 


ROUTINE  NAME: 


PNTDR 


REVISION  code: 
LOCATION  / 


type: 

TXD 


PROGRAM 


n 3 SUBROUTINE 


C 3 FUNCTION 


GENERAL  DESCRIPTION: 


This  program  is  designed  to  draw  the  map  created  by  PTDTA 


ACCESSED 

PTDTA 


by: 


linkages: 


RTE f FILE 

ANMOD  _(TC  S )_ 
BMLOC  (SYS)' 
01SIZ_(_TCS)_' 
IOW AT  (SYS)  " 


TBINT  (%TABLT) 


application: 

_DRAWM__/S_ 
/_ 


LEVEL : * 

X 

AUTHOR:  M^-Wagacic. t 

_____  patej-.JZZZL. x 

•ss  procedure: * 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
t 
X 
X 
X 


IPRM,  ITEK,  COMMON  BLOCK  from  PROGRAM  PTDTA 


EXTERNAL  REFERENCES: 


MANAGER f LIBRARY: 

C1J3FL_(7M)AFMP)  D FN  EL_  1%D_AFMP  ) DRWRL_lTCS_)_ 


9.kQSE_£RTE2_ 
jZ_SJ^„LLcJ>2_ 

MOVRL  (TCS) 
RMPAR  (SYS) 
YERSR_[T_CS2_ 


PMH2_ITJ2S.L 

DR^_X%DAFMP) 
READF  (RTE) 
MOVEA  (TCS) 
VWN_D0_£TC_SJ_ 


ERAS_E__(TCSJ_ 

EXEC.  J RTE) 

MOVAB  (TCS) 
POSNT  (RTE) 


fintt_I1CSJ_ 
HOME  _(TCS). 

Jnitt_I!CSJ_ 

OPEN  (RTE) 
SWNDO  (TCS) 


(NAME/Pro3ram»  Subroutine*  OR  Function) 

ZZZZZI/Z  1IIIIIII/I  ”1111111/”  ZZZZZZ /_. 


£ 
* 
X 
X 
X 
X 
% 
X 

xxxxxxxxxxxxxxxxxxxxtxxtxxxxxxxxxxxxxxxxxxxxxxxtxtxxxxxxxxxxxxxxxxxxx 


DATA  FILES  ACCESSED: 
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# t # x x * x x x x x * % x 1 * x x t xtxtxxxt  t x xxx  % t x x x xxtxxxxx  x x x xxxxxxxxxxxx  x x 1 1 x t x x x 
x , x 

X SEAM  PL.  AN  SOFTWARE  DOCUMENTATION  LEVEL? - % 


X ROUTINE  NAME  J 
* 


AUTHOR?... 


Elm 


DATE? 


8-25-79 


& PRNPD 


I 3 FUNCTION 


% REVISION  CODE? 

* 

* LOCATION  / ACCESS  PROCEDURE?.. 

* 

# TYPE? 

X C 3 PROGRAM  t X3  SUBROUTINE 

X 

X GENERAL  DESCRIPTION? 

X 

$ Prints  the  dragline  simulation  parameter  data  on  the  line  printer  as 

X part  of  the  parameter  data  update/display  operation. 

X 

X 

* 

* 

X 

X ACCESSED  BY? 

# 

X LINKAGES? 

# 

X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

t 

X 

X 

X 

X 

X 

X 

X 

t 

X 

X 

X 

X 


X 

X EXTERNAL  REFERENCES? 


RTF r FILE  MANAGER ? LIBRARY? 


CODE  (RTE) 


DATE_(SYS)_ 


IDENT__(.SYS)_ 


.spQlu__(sy_s;1 


SPECIAL? 


APPLICATION? 

/._ 

/_ 


< N A M E / P t o sErstTs  t 
/ 


Sub  rout,  i ne  r 
./_ 


OR  Function) 
/„ 


./. 

./. 


/. 

... /. 


DATA  FILES  ACCESSED? 


X 

X 

X 


X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

X X 

X % 

xxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxtxxxxxtxtxx 


X 

X 

X 

X 

X 

X 

X 

X 

'£b 

$ 


X 
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H<  % 

* SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL t ft * 

& He 

* ROUTINE  NAME  ♦ I^JL AUTHOR  t — Pi.™ * 

* t 

* revision  code: date: §-2.5-79 # 

* t 

* LOCATION  / ACCESS  procedure  : * 

He  # 

He  type:  He 

He  11  PROGRAM  TX3  SUBROUTINE  C 3 FUNCTION  He 

He  He 

He  GENERAL  DESCRIPTION:  * 

He  % 

% PROPD  prints  dragline  simulation  operation  data  on  the  printer.  He 

He  He 

He  He 

He  He 

* # 

He  He 

% He 

He  ACCESSED  BYt  He 

He  _„PPSE_Q „ § 

He  He 

He  LINKAGES:  He 


He 


He 


He 


& # 

He  He 

He  EXTERNAL  REFERENCES:  He 

He  He 

He  RTE 9 FILE  MANAGER*  LIBRARY:  % 

He  .CODE „CRI.El _ _.DAm...CS.ISJ._  _IDENX.XS.YSJ  _SPDLU.._CSJS).  He 

% , t 

He  He 

He  SPECIAL:  He 

He  He 

He  APPLICATION:  < NAME/P ro3 ram*  Subroutine?  OR  Function)  He 

* „_£D2EM__/_  /_  /_  /...  /„  He 

He  H. 

He  DATA  FILES  ACCESSED:  He 


He  _ He 

He  He 

He  He  He  He  He  He  He  He  He  He  He  He  He  & He  He  He  He  He  He  He  He  He  He  He  He  He  1 He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  t He  He  He  He  He  t He  He  1 1 He  He  He  He  He  He  He  He  t % He 
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AAAAAAAAAAAAAA#  1 A A * * A AAAA  A 1 A AAAAAAaAAAAA  A A AAA  A A A A A A A A 4c  A A A A A A A A A A A A A A ' A 


A 

A 

vM 

*r> 

A 

A 

A 

A 

A 

A 

A 

A 

He 

He 

He 

He 

He 

He 

He 

>!< 

A 

He 

He 

A 

He 

He 

He 

He 

He 

Hi 

He 

He 

A 

He 

A 

A 

He 

He 

He 

He 

He 


He 

He; 


A N 8 0 F T U A R E D OCUMENT A T 1 0 N 
PTDTA 


ROUTINE  NAME 


REVISION  CODE 


LEVEL 


AUTHOR  J M...  Wagner.. ... 


DATE 


M2. in.... 


LOCATION  / ACCESS  PROCEDURE: 


DATA  ENTRY  AND  REVIEW 


TYPE : 

r xi 


PROGRAM 


T 3 SUBROUTINE 


T 1 FUNCTION 


GENERAL  DESCRIPTION 


This  Program  is  designed  to  input  point  data  from  the  digitizing  tablet 


ACCESSED 

DGINT 


BY 


linkages: 

IPRM 

EXTERNAL  REFERENCES l 

RTF v FILE  MANAGER*  LIBRARY: 


. ANMOD  (TCS) 
"BELL  (TCS) 

I..?mloc^(sys) 

""HOME  (TCS) 

POSNT  (RTE) 
WRITE* * 


CHSIZ 
_ CLDFL  (_%DAFMP  ) 
_CLOSE_(RTEl 
MOVAB  (TCS) 
ONEPT  (%TABLT) 
. S.WNDO  „(TCS  ) 
READF 


..  CREATE.. 
,DFNFL.(|DAFMP) 

DRAWA a:c_s) 

NEWPG  (TCS) 
INITT  (TCS) 

_.™do....(.t.cs.) 

._XTNP..T._..(S.Y.S..) 


DREND..  ilDAFMP  ) .... ..  EXEC ( RTE.) 


....D.RWRL.....(.TC.S.) 
„..  JSEAS.E..  ..(TCS.) 
IDSEG  (SYS) 
MOVRL  (TCS) 
....PURGE.  ..(RTE.) 


He 

He 

He 

A 

He 

A 

He 

He 

A 

He 

He 

He 

He 

He 

He 

He 

He 

He 

A 

A 

He 

He 

He 

He 

He 

He 

A 

He 

He 

A 

A 

A 

A 


- JTJ.N.TI  _(.ICS ) A 

ELDAT  _..(-TCS  ) A 

MOVE A (TCS) A 
OPEN  (RTE)  A 
.....XRINTA%TABLlji) 

. H< 

' A 


A 

application: 

< NAME/P  ro<3  ram  ? 

Sub rau tine* 

OR*  Function) 

A 

A 

PNTDR  / P 

/ 

/_ 

...... /_ 

/... 

■Jr 

A 

OTLN /.S 

/_ 

A 

A 

SQUAR  / S 

/_. 

/ 

/ 

/... 

A 

A 

...SCALE /.S 

/ 

/ 

/ 

/.. 

A 

A 

A 



- 

— 

• ~~~/ 

- 7- 

A 

A 

A 

DATA  FILES  ACCE 

sbfd: 

A 

V-* 

A 

A 

: A A A A A A A A A A AAA  A A A A A A A A A A A A A A A A A A AAA A A A A A A A A A A A A A A A A A A A A A AAA A A AAA  A A A A 


*r  ->  'r 


X ',{<  :{<  >K  * 1 X X X X 1 X X 1 X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X * X X X X X X X X X X X X X X.  X X X X X X X X ;i<  X 


X 

X S E A M P I.  A N S 0 F T W A E E D 0 C LJ  M L N T A T 1 0 N L E V E L J 

* 

X R 0 U T I N E N A n E l p TFLS A IJ T H 0 R i ... Lehman... 

X 

X REV  I S I ON  CODE  X ...1,0.  DATE  X _ bill  1.9... 

X 


X L 0 C A 1 1 0 N / A C C E S S P R 0 G E D U R E X &ETELS. . ...  17 

* 

x type: 

x i: x :.!  program  i:  ;i  subroutine  r:  :j  function 

x 

X G E N E E A I...  D E S C R I P T 1 0 N 1 
X 

X Searches  grid  files  for  pit  layout  operations. 

X 

X 

X 


X X 

X * 

* X 

X ACCESSED  by:  X 

X ...  PTLQT ....  X 

X X 

linkages:  * 

i 

X Uses  PTOPO  common;  swapped  program.  X 

X X 

X X 

X E X T E R N A !„.  R E F E R E N C E S t X 

X X 

X ETE ? FILE  MANAGER ? LIBRARY!  X 

X ...MAR ...EXEC __  X 

X X 

X X 

X X 

x special:  x 

X x 

X X 

X A P P !...  I C A T 1 0 N : ( N A M E / P r o L r a m v S u b r o u t i ri  & r 0 R F u n c t i o ri ) X 

X /_  /_.  /...  X 

X X 

X DATA  FILES  ACCESSED : X 

X ...GRID X 

X * 

X X 


XXXXXXXXXXXXXXXXXXXXXXXX  A Y Y >! : T T X Y Y Y Y 'X X X X X X X X X X X X X X X X X X-  X X X X X X X * X X X -•  X X X X 
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■?-'r  34  34  34  ^ 34  34  34  34  34  34  34  - - -X-  34  34  34 


-5*  -3  $ 


1 1 >fc  X X X X X X X $ X X X X X X X X X X X X X X X X X X X X X X X >;•:  :{<  X X X X Y X X X X Y X X X X X X X X X X He  X * X X X X X X X X X Y 

s E A M P L A N S 0 F T W A R E D □ C U M E N "('  A T 1 0 M I. . E 0 E I..  S ._  _ 

AUTI 10  R l Lehman 

PATES .6/1/79.. 


X R 0 U T I N E N A h E t . PTL0.I 

X 

X R E M I S I 0 N C 0 D E S ...  1 .,..0. 

X 

X L 0 C A T 1 0 N / A C C E S S P R 0 C E D U R E S &P.TLOI  ...:..:.17 

* 

X TYPES 

* r:  X;;|  p R 0 6 R A M E.  II  S U B IS 0 U T X N E E 1.1  F UN C T 1 0 N 

X 

x g e n e r a l.  n e s c r i p t i o n s 

X 

v/  Performs  pit  layout  operations  on  contour  map. 

* 

X 

X 

He 

He 

X 

X ACCESSED  BYS 

# PTOPO 

X 

x linkages: 

X 

;i:  Uses  PTOPO  common 

X 

X 

He  E X T E R N A !..  R E F E E E N C E S S 
He 

R T E j F 1 1._  E M A N A G E R ? I...  I B R A E Y S 


RMPAR 


EXEC 


SPOLU 


...DAFMP 


X 
X 
X 
X 
He 
* 

He 
X 
X 
X 
X 
X 
X 
X 
He 
X 

X DATA  FILES  ACCESSED S 

* //MIN  E GRID 

X 

A 

YYYYYYYYYYYYYTYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYTY  X X X Y Y X X 


SPECIALS 

TCS 


A PPL.  I CAT  I ON 
REDRW  / S 
CROSS  "/_S 

/.... 

/.... 


( N A M E / P r o £ r s m v S u b r o u t i n e ? 0 R i;:'  u ri  c t :i.  o rt ) 
...  CRAMR.. / S DRNG „ , S. 


LINE  , S 

PTFLS  ' ~ /P 

..._. /.... 

/._. 


OUTLN 


He 

X 

X 

X 

X 

He 

Y 

Y 
He 
X 
X 
X 
X 
X 
X 
X 
X 
He 


Y 

X 

X 

X 

X 

X 

..... X 

X 

X 

X 

X 

X 

X 

X 

/_  X 

X 

._ /....  He 

/..  X 

X 

X 

X 

X 

X 

X 
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•r'tr  ~?<r  7^  -.-Wr  *;  - b1s  7^ 


x X X * % X X X X X X X X X X X X X X X X % % % t X t X X X X X X X X X X X X X X X X X X X X * X X X X X X X X X X X X X X X X X X X X X 


$ 5 X 

X SEAM  PL  AN  SOFTWARE  DOCUMENTATION  LEVEL  J "X 

X X 

X R 0 U T I N E N A : i E X .. ....  PI.°.P.9. A !J  T ! i 0 R t Lehman ... 


X ' X 

X R E V I S 1 0 N C 0 D E J ....  i .*.9 D A T E ♦ _ 6/1/  79  * 

X X 

X I. . 0 C A T 1 0 N / A C C E S S P R 0 C E D U R E X _ ._ * 

X X 

X TYPE  l X 

* [.;  X.1  PROGRAM  II  II  SUBROUTINE  C II  FUNCTION  X 

X X 

X G E N E R A L D E 8 C R I P T 1 0 N X X 

X X 

X Prepares  data  and  initializes  parameters  for  contour  displays  of  X 

X X 

X gridded  data.  Swaps  in  pit  layout  routines.  X 

X X 

X X 

X X 

* X 

X ACCESSED  BY!  X 

X ...ADM... * 

X X 

X I..  INK  AGES  t X 

X X 

X X 

X X 

X X 

X EXTERNAL  REFERENCES  t X 

X X 

X RTF  f FILE  MANAGER y LIBRARY  t X 

X „RKPAR..._ „.EXEC X 

X X 

X X 

X X 

X SPECIAL;  X 

X ... S.E.OLU. DAEMP. TCS DSP. X 

X X 

X X 

X A P P I...  I C A T 1 0 N ; < N A M E / P r o s r a in  ? S u b r o u t i n e ? 0 R F u ri  c t i a n ) X 

X ...ZOOM... /S  ....BOX /S.  ...GUDIN /P  /..  X 

X / /...  / _./... ../...  X 

X ../ /._.  X 

X X 

X DATA  FILES  ACCESSED  I X 

X ...GRID //MINE t 

X X 

X X 
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1 1 tttttX  X X * X X XXXXXX  1 1 t 1 * 1 1 & x ##*#*##*#*  x t txxxtttx  * x x * & x x x x X 


rXX 


X 

* SE AH PLAN  SOFTWARE  DOCUMENTATION  LEVEL* i 

t 

X ROUTINE  NAME.: 1.UT.NH AUTMCKS Elm „ 

* 

X REVISION  CODE  « DATE  * §-25-79 

* 

X LOCATION  / ACCESS  PROCEDURE  l „„  &.™Tl_file 

* 

X TYPE? 

X l 3 PROGRAM  LX!)  SUBROUTINE  C D FUNCTION 

* 

* GENERAL  DESCRIPTION ♦ 


* 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


Inserts  the  I,  J th  element  into  the  Nil  array  through  the  MSU 
RTE  III  array  segmentation  scheme. 


Afprcccri  r>Y« 

___  BHEEL__ _BUCKT_ _ INIT  _PTNIT_ _SFI_LL 

SPRED 

linkages: 


X EXTERNAL  REFERENCES? 

X 

X RTE?  FILE  MANAGER?  LIBRARY* 

X 

& 

x special: 

X 

x 


application: 


( NAME/P redraw?  Subroutine?  OR  Function) 


/_ 

/„ 


/_ 

/.. 


/... 


X 

X 

X 

t 

iff 

vV 


X 
X 
X 
X 
t 
X 

X DATA  FILES  ACCESSED? 

X 

X 

xxxxxxxxxxxxx  x ttxxxxtx  X X X X X X X X X X t XX  XXX  X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 
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& 3* 


% * * % * X * X X X XXXX  X t X X XXXX  X X X X X He  He  Hi  Hi  Hi  He  Hi  Hi  He  Hi  Hi  Hi  Hi  Hi  Hi  Hi  He  Hi  He  X Hi  He  He  He  He  He  Hi  He  Hi  Hi  Hi  He  H:  He  He  He  Hi  Hi  :!<  H:  H He 


Hi  He 

H<  S F"  A h P I.  A N S n F T W A R E D Cl  C U M E N T A T 1 0 N I ...  F FT  I i 2 * 

He  * 

H;  R 0 1 1 T T M E N A M FT  J ...  ...  .QB E A I J T F I 0 R J Elm :£ 

Hi  Hi 

Hi  R E V T S 1 0 N C 0 D EJ D A T FT.  J 7 /.1 9 / 7 9 

H< 


Hi  1 . 0 C A T 1 0 N / A C C E S S P R 0 C E D U R E t ... ...  &QBE  file  ..  <RU  a ADM.,  or . RV , ...SPLAN). 

Hi 

Hi  type: 

Hi  r.  .1  PROGRAM  r X I SUBROUTINE  IT  3 FUNCTION 

Hi 

Hi  G E N E R A !...  D E S C R I.  F:'  T T 0 N i 
He 

H<  QBE  Common  Block 

Hi 

Arguments:  LFEC,  LFLP  logical  units 


Hi 


LOGQB,  LOGEC  Model  selection  plays. 


Hi 

Hi  ACCESSED  BYJ 

Hi  CODE.CR.TE). 

H< 

Hi  I.  INK  ages: 

He 

Hi 


Hi 


* * 
X EXTERNAL  REFERENCES:  H< 

Hi  ‘ H 

X R T E t F 1 1...  ITT  M A N A G E R , I I B R A R Y i X 

Hi  ' ..... Y 

Hi  ...... Hi 

He  _. _ Hi 


Hi 

He 

He 

Hi 

He 

He 

Hi 

Hi 

Hi 

He 

He 

He 

Hi 

He 


special: 


APPI.  I CAT  ION 
/... 

/... 




% 

% 


% 

X 

X 


(NAME/P  ro?S 

.../... 

/... 


r f.;: m ? S 1. 1 b r o u t i ne?  0 R F;' u n c t .i  o n ) H< 

/ _. / /...  * 

.. / / /...  Hi 

../ / /...  Hi 

_./ / /...  Hi 

Hi 


DATA  FILES  ACCESSED: 


Hi 

He 


He 


X 


He  Hi 

Hi  S Hi  H<  Hi  Hi  Hi  Hi  Hi  Hi  ^ Hi  H<  H Hi  H H Hi  Hi  Hi  H<  Hi  Hi  H<  Hi  Hi  H<  Hi  Hi  Hi  H<  Hi  Hi  He  He  Hi  Hi  Hi  Hi  Hi  Hi  Hi  Hi  Hi  Hi  Hi  Hi  Hi  Hi  Hi  Hi  Hi  H<  Y Hi  Hi  Hi  H:  H:  Hi  si  Hi  Hi  Hi 
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&r  W t*  >i 


% t 

# SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL t * 

* * 

* ROUTINE  NAME :__  RAN_ AUTHOR t * 

* £ 

* revision  code: date: * 

* % 

# LOCATION  / ACCESS  PROCEDURE  X „-&J®UJZ # 

$ * 

* type:  * 

t f.  3 PROGRAM  C 3 SUBROUTINE  fX  3 FUNCTION  % 

% % 

% GENERAL  DESCRIPTION:  & 

% % 

% Returns  a random  number  >K 

% % 

% % 


% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 


ACCESSED  BY! 

..SERED 

LINKAGES : 


EXTERNAL  REFERENCES : 

RTF ? FILE  MANAGER?  LIBRARY  * 


* 

>K 

% 

t 

- % 
% 
% 
% 
% 
% 
% 
% 
% 
% 


% 

% 

% 

# 

* 

& 

t 

# 

£ 

* 

* 

& 

& 

* 

* 

% 


special: 


APPLICATION! 
/- 

/„ 


DATA  FILES  ACCESSED: 


< NAME/P roMraiiu  Subroutine?  OR  Function) 


/ 


./_ 

./_ 

./„ 


/. 

/. 

/. 

/_ 


/_ 


& 

% 

* 

* 

% 

% 

# 

# 

t 

t 

t 

t 

* 

* 


% >:<  t >;<  ttt  % % 1 1 1 1 >’<  & t 1 1 1 1 1 1 $ % % % % t-  % % % 1 'A'  % t & % % % % % & % 1 1 % t & § & % & § $ £ 1 1 & t & £ t % % X< 1 & 1 


134 


t 


t 


level:-. 


* SEAMPLAN  SOFTWARE  DOCUMENTATION 
% 

* ROUTINE  NAME l RPP.^L 

* 

* REVISION  code:..... 

t 

* LOCATION  / ACCESS  PROCEDURE: 

* 

* type: 

* f X 3 PROGRAM  r:  3 SUBROUTINE 

* 

* GENERAL  DESCRIPTION: 

# 

# Determine  level  2 reclamation  regrade  parameters  and  planting 

$ estimates  - scheduling  executive  for  CLAIM  subsystem 

* 

% 

* 


* 

AUTHOR  I .PlY.il.1.?...5ie_en # 

t 

date: t-J-Jzl  1 # 

% 

* 

* 

t 3 FUNCTION  # 

% 
* 
* 
% 
* 
% 
* 
t 
* 


% ACCESSED  BY: 

# MLRS. 

% 

% linkages: 

% 

$ CSSE  COMMON  description  (MLRS) 

t 
% 

S EXTERNAL  REFERENCES: 

% 

* RTE ? FILE  MANAGER * LIBRARY: 


% 

* 

* 

* 

% 


* 

# 


RMPAR 


..EXL.C 


special: 


application: 

GETID  . / P 

SRED / P 

....  eifFI/j 

::.iiad.::/.p 


< NAME/Pro<dram  t Subroutine  ? 


..-..LED. /P 

LEV /P 

FEASI_™/P 

I-TECQnI/P 
....... OPUS  E.„./P 


.IRSHR. 

-DSPSP_ 

.OTP  MR., 
_Lubs„. 
TC0N1 


../JS 

_/S 

_./s 
./ s 
_/s 


OR  Function) 
.1C0N_2 /S 

'tcqna_~/s„ 

.SWAPC__./S. 
.TFCD. ...... /S 


ACCESSED 


& 

t 

t DATA  FI  LI 
* 


% 
t 
>K 
% 
% 
% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 

% 

V' 
•v 

% 

% 

% 

% 

./_.  * 
./_  % 


% 
% 
>K 

t 

t 


/. 

/. 
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# X X X X X * * X * * X X X X X * X X X t X X X * * X * X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 


X 

C f ft  ft  p I ft  ft  9 n F T U A R F D n C U H E N T A T T 0 N I.  E M HI  t X 

X 

ROUTINE  NAME!  RDGRD  AUTHOR  i....  Conners  X 

X 

R E V I S 1 0 N CO D E i \ \9. n A T E i 6 Ll/J.9 X 

X 

I.QCAT  ION  / ACCESS  F'ROCEDURE  ! &.G.?3pp * 

X 

TYPE!  X 

r i F'  r o o r a m r:  x:i  s u b r o u t :i:  n e r ::i  f u n c t i o n x 

x 

G E N E R A I...  .0  F S C R I P T 1 0 N i X 

X 

Reads  grid  data  file  and  stores  in  common  block.  X 


X 

X 

X 

X 

X 

X 

ACCESSED  BY! 

CS3DD 

I INK AGES! 


EXTERNAL  REFERENCES ! 

R T F v F I !...  E ri  A N A G E R ? L I B R A R Y ! 
EXEC 


X 

X 

X 

X 

X 


SPEC  I A I. . ! 

SPOLU 


* 

X 

* 

X 

X 

X 

X 


APPLICATION! 


/... 


( N A H E / P r o A r a rr«  ? S 1. 1 b r o li  t i ri  e •>  0 R F u n c t-  .i  o n ) 


X D A I'  A F 1 1...  E S A 0 0 E S S F P ! 

X GRIP _ 

* X 

X X #$#$##***  X X * * 'X  X X X X X XXX  X X X X X X X X X X * X X :**#&***:  $ X X X X X X $ X X $ X X X X X X Y X X X X * X X 
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V:  H T-c  W ¥:  ¥-  -H'Sr  ^-j-  ¥:  3*  3$  ^ r-±  -X-  1-k  -Xt  ¥:  Xr 


Y Y Y Y Y Y Y Y Y * >!<  Y Y Y Y Y Y Y ********  * Y t Y Y Y Y Y Y Y * * Y * Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y YYYYYY  YY  YYY  Y 

Y Y 

Y S E A M P L A N S 0 F T W A R E D 0 C U M E N T A T 1 0 N L.  E V E I...  X ... Y 

t Y 

Y R 0 U T I N E N A M E t MPM - A U T I- ! 0 R X Lehman 

'M 

Y R E V I S 1 0 N C 0 D E X ...  1 s..O. ._ D A T E : hJ.ll  .7.9. Y 

Y Y 

Y LOCATION  / ACCESS  PROCEDURE  X &P.XLOI 1.7 * 

* Y 

* type:  * 

* c :i  program  r.x:i  subroutine  r :i  function  y 

* * 

Y 6 E N E R A L.  D E S C R I P T 1 0 N { Y 

Y Y 

>£:  Redraws  the  current  pit  layput  as  returned  by  production  analysis.  y 

* Y 

% Y 

Y Y 

t -4; 

* Y 

Y Y 

Y ACCESSED  BYi  * 

* PILOT _ Y 

Y ' Y 

y linkages:  Y 

Y Y 

Y Uses  PTOPO  common  Y 

$ Y 

Y Y 

4:  EXTERNAL  REFERENCES:  Y 

4:  4; 

Y RTEv  FILE  MANAGER  ? LIBRARY : % 

t _ Y 

Y Y 

Y Y 

Y Y 

Y SPECIAL;  Y 

4:  .....ICS. .....JQAFMP Y 

Y Y 

* Y 

Y A F:‘  P !..  I C A T 1 0 N ? ( N A M FI  / F:'  r a A r s in  ? S u b r a u t :i.  n e >•  0 R F u n c t .1  o n ) 

Y /_..  /„„  /._.  /„.  /...  Y 

Y Y 

% DATA  FILES  ACCESSED:  Y 

Y Y 

Y Y 

Y Y 

yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy yyyyyyyy 
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*r  •»  -5*  'X-  **  ■»  *!-  % -K-  *$■  $$  4*  «•  $5- 


###j|c#jt:)!{3*cj|c*#####j|c)j{##j):j({*##)f:#j|c#.)|c##*####>5f3|t3|£#j|c)|c#*#*5fc##)|c)|c#########3|c#*###j|£## 


# * 
# SEAM  PL  AN  SOFTWARE  DOCUMENTATION  LEVEL  t — 3 # 


# 

* ROUTINE  NAME ♦ JREIRfL. AUTHOR  J JEIm — 

£ 

* revision  code; date; — 3J.ll/J9 

* 

# LOCATION  / ACCESS  PROCEDURE; &RETRN _ 


* 

# type; 

% c 3 PROGRAM  C.  X3  SUBROUTINE  T 3 FUNCTION 

# 

* GENERAL  DESCRIPTION; 


* 

% 

t 

% 

% 

* 

# 


RETRN  evaluates  all  decisions  for  all  slates  for  a simple  stage 
and  saves  the  best  decision  during  the  backward  stepping  in  D.P. 


* ACCESSED  BY! 

% JPITDP 

% 

% LINKAGES ; 

% 

% COMMON  - IFCOM,  M1COM,  M2COM,  DPCOMl,  DPCOM2, 

% ARGUMENTS  - XMOD 


% 

% 

% 


EXTERNAL  REFERENCES 


RTF.  r FILE  MANAGER 9 LIBRARY; 


SPECIAL 


APPLICATION 
.JDMO.US /S 


( NAflE/Pro^rsfti r Subroutine?  OR  Function) 


„GUXD_ 


./£ 

./... 


t 

t 

# 

% 

t 

......  % 

% 

% 

% 

J ...  % 
./_  * 
./...  >K 
% 

./....  % 


DATA  FILES  ACCESSED; 


* 

% 

% 

%.%%%%%.%%%  % % % % % % % % % & t %%%  & t * t % $ 1 t % % t t $ ttt  t * 1 1 1 1 % % * % % 
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^ ¥:  dr  5*  *r  ■?*  & *5-  «■  X & & «•  $$  #r  «•  4$  4* 


* 


LEVEL  I Jt 


AUTHOR  l M- ■_  Wa gne r_ _.  . 

DATE: 8/2/79  


# SEAM  PI.  AN  SOFTWARE  DOCUMENTATION 
& 

# ROUTINE  NAME  J ..  JL1PPB. .... 

# 

* REVISION  COriE:_.„ 

* LOCATION  / ACCESS  PROCEDURE  * P.4TA ENTRY__ AND  REVIEW 

* 

Z TYPE ! 

Z r x3  PROGRAM  r.  1 SUBROUTINE  F 1 FUNCTION 

t 

Z GENERAL  DESCRIPTION: 

Z 

$ The  Purpose  of  this  program  is  to  draw  the  files  created  by  RNDIS 


t 

Z 

% 

* 

# 

* 

* 

Z 

Z 

Z 

Z 

Z 

Z 

Z 

Z 


Z 

Z 


$ 

* 


Z & 

* Z 


Z * 

& ACCESSED  BY:  * 

t .... RNDIS _.. Z 

Z Z 

t linkages:  t 

z t 

# IPRM,  ITEK,  COMMON  BLOCK  from  Program  RNDDR . # 

t Z 

Z Z 

t EXTERNAL  REFERENCES  I * 

Z Z 


Z 

Z 

Z 

Z 

Z 

Z 

Z 

% 

t 


RTF?  FILE  MANAGER ? LIBRARY:  # 

__ . ANMOD  (TCS)  CHSIZ  (TCS)  FLOAT_  (TCS)  MOVAB  (TCS)  RMPAR  (SYS)  # 

"ISSIl'iTCS)  IIdRW^2~(TCS)  IlH01&”_.XfcS)  Ijpv|A  JTCS)  ’^SPOLU (SYS.)  % 

:.5sl5c:ms)  iiexic...”.xrte)  iiiNf^jfcs)  iinewpg^si)  ii&fjiiiis)  * 

* 

special:  z 


z 


Z APPLICATION:  < N a H E / F‘  r o ?=s  r 5 iti  y Subrout  i ne  y OR  Function)  Z 

Z _ J)_DAWM /S  / /_  / /_.  % 

z z 

Z DATA  FILES  ACCESSED!  Z 

% Z 


ztzztzzz z t z z z z z zzzzzzzz Z ZZZZZZ Z Z Z Z Z Z ZZZ t Z Z Z Z ZZZZZZZZZZ Z z zzzz z % z z % % % % % 
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# 


* SEAMPLAN  SOFTWARE  DOCUMENTATION 
t 

* ROUTINE  NAME  J .. RNDIS 

* 

* REVISION  code: 

$ 

# LOCATION  / ACCESS  PROCEDURE: DATA.. ENTRY,. AND  ..REVIEW 


LEVEL  : „.A„„ 

AUTHOR  J M._  Wagner. 

DATE: 8/2/79. 


C 1 SUBROUTINE 


r 3 FUNCTION 


* type: 

* r XT  PROGRAM 

* 

* GENERAL  DESCRIPTION: 

* 

# This  program  is  designed  to  digitize  discrete  data. 

* 

$ 

* 

£ 

* ACCESSED  BY: 

* 

# linkages: 

t IPRM 


& 

* F X T E R N A L R E F E R E N C E S : 


# 


RTE f FILE  MANAGER ? LIBRARY t 


# 

% 

t 

* 

* 

* 

* 

* 

* 

% 

% 

* 

# 

# 

* 

* 

* 
: k 
* 
* 
# 

# 

# 

'A 

£ 

t 

& 

* 

# 

>K 


% 

...  .ANTIOD (.T  CS  ) „ 

„CHSXZ-(.TCS) 

EXEC.  ..(RTE.) 

. HOME... (TCS  1 

...MOVAB„  (TCS  ) $ 

* 

BELL  (TCS) 

DRWAB  (TCS) 

_EI.NTT(TCS) 

..IDS  EG  ( SYS  ) 

MOVRL  (TCS)  >;? 

t 

BMLOC  (SYS) 

_D.RWRL_.CTCS) 

FLOAT (TCS) 

.JNTT„.C.TCsi 

..NEWr’C„.(TCS)* 

% 

ONEPT  (%TABLT) 

SPOLU  (SYS) 

TBINT (%TABLT) 

* 

t 

special: 

* 

% 

% 

* 

% 

# 

application: 

(NAME/Prosr 

aiiiiF  Subroutine? 

OR  Function) 

% 

& 

..  ...BNDUK / J?  ... 

__/_ 

/ 

/... 

_/...  # 

£ 

...„otm /...s 

/... 

/ . 



,,  , 

/...  % 

% 

....SCALE  ...... /„.S 

/.. 



_ /_ 

/...  t 

* 

SQ.UAR  / S 

/_. 

/... 

...  /. 

..../_  % 

/„ 

/ 

/ 

/„. 

.. 

_./....  # 

DATA  FILES  ACCESSED: 


* 
* 

* £ 

t __ t 

* t 
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Xc  x:  X:  * * * X:  * * * * * * * * * * * % % * * * * * * * * * X:  * * * * X * t X X 1 X 1 '!<  * X X X X X X X X X X * X X X X X X % X X $ X X X % 
% 

X S E A M P ! . A N S 0 F T W A R E P 0 C IJ M E N T A T T ON  I.  E V F L J . 

* 

* POUT  I NF.  NAME : RNITZ AUTHOR  J Elm 

X 

R E 0 T S 1 0 N C 0 n F t D A T F."  J JJJ-M  Z? _ 

&RNITZ 


i:  :i  FUNCTION 


X 1 . 0 0 A T 1 0 N / A 0 C I : S S F-1  R U C F .0  U R L t 

* 

* TYPE  J 

* r :i  program  r xi  subrout :fne 

* 

X G F N F R A I...  P E S 0 R I F:'  T 1 0 N : 

Xi 

X Preforms  file  based  on  initialization  of  MINE  parameters 

* 

X (ADM  Common  block  GVNADM) 

X 

X 

Xi 

X 

X ACCESSED  BY  $ 

% ADM(ADMl) 

X 

Y I.  INK  ages: 

Xi 

£ GVNADM  Common  Bolock  (General  Mine  parameters) 

Xi 

X< 

X:  F X I F R N A !...  R E F F R E N 0 E S J 
X 

R T F , F 1 1 . E M A N A 6 E R > I I B R A R Y J 
CODE(RTE)  SPOLU (LIB) 


special: 


X 

Xi 

X: 

X: 

X: 

X 

X 

Xi 

X 

_ x< 

Xi 

x< 


Xi 

APR!  I CAT TON: 

< N A r'i  E / f:'  r a si  r a ro  ? 

Sub  rout  :i  ne  ? 

OFF'  Funoi-i on  > 

X< 

Xi 

/ 

/ 

/ 

/ 

/ 

X 

X 

/.. 

/ 

/ 

/ 

/.. 

X 

* 

/ 

./..  . . 

X 

X 

/... 

/ 

/ ... 

X- 

X 

/ 

/ 

/ 

/... 

X 

X 

X 

X 

DATA  FILES  A COES 

sed: 

X 

X 

//VNADM 

X 

XXXXXXXXXXXXXXXXTXXXXXXXXXXXXXYXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXYXTXX 
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*c  =$  & X:  *r  *r*-*3£-**-K-*~  ¥:  ¥;  -X- 


/ 


X X X 1 X * * X * X X X * X X * X X X X * X X % X X % * X X * X * X X * * % X X X X X X * * X X * X X X X x X X * X X X X X X % t x * X X 

X x 

X s E A M P I.  A N S 0 F T W A R F D 0 C IJ  M E N T A T I 0 N I . F V E I . } 3. X 

ft  ft 

X R 0 1. J T :i:  N F N A fi  E J £QTAT A IJ  T ! 1 0 R : E lm . 

* 

x r e v :i:  s i o n c o n e : - n a t e : 7./.3.0  /.  7.9 x 

x X 

X I...  0 C A T 1 0 N / A C C E S S F'  R 0 C E D U R E ♦ &RQTAT „ x 

X X 

x type:  x 

X t:  :i  PROGRAM  r:X;;|  SUBROUTINE  I"  :i  FUNCTION  X 

x x 

X G E N E R A I...  D E S C R I P 7'  1 0 N J * 

X X 

X ROTAT  Rotates  a point  and  draws  or  moves  to  it,  and  optionally  places  X 

X X 

& a character  at  the  end  of  the  draw.  T 

X X 

X X 

X X 

X X 

X ACCESSED  BY  t X 

X-  DRWPL HUB ... X 

X X 

X LINKAGES  X X 

X X 

X COMMON  - DIAGR  COMMON  block  (others  for  position)  & 

X X 

X Arguments  - ZCHAR,  XBGN,  YBGN , 0FF1,  0FF2  X 

X E X T E R N A !...  R E F E R E N C E S * * 

X X 

X RTE  ? FILE  MANAGER:.-  LIBRARY  I X 

X ANMOD(TCS) DRAWACTC.S.)  GETLU(USF)  MQVEA(TCS)  X 

X X 

X X 

X X 

X SPECIAL  t X 

X ._ X 

X _ _ X 

X X 

X A P P i...  1 0 A T 1 0 N 1 ( N A M E / P r a a r s m ? S u b r o u t :i.  n e ? 0 R F u n e t i o n ) X 

X ./ / /_ / /....  X 

X / / / _ / / X 

X X 

X DATA  FILES  ACCESSED  t X 

X ... X 

X X 

X X 
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¥: 


* % t * * % * t * * * % t * Me  * Me  1 1 * M<  * 1 1 Me  t * Me  t * * t Me  t Me  ^ He  1 1 * He  % * X * >K  HC  t X Me  He  He  He  He  He  He  He  Me  He  He  He  He  He  He  * He  He  He  Me 


He  Me 

He  q f:  A M P ! A N 8 0 F T 14 A R E P 0 C I JM E N T A T T 0 N I . E M F 1.3 He 

Me  Me 

He  R 0 ( I r T N F N A ME  ♦ ..  . RPT A I J T H 0 Rt Elm  He 

He  He 

He  R F U I S T 0 N C 0 P F.  i .. P A T F * 7 L 16/79 „ % 

He  % 

% LOCATION  / ACCESS  PROCEDURE  t ^RVT - He 

He  He 

He  TYPE:  He 

He  f 1 PROGRAM  T*  "I  SUBROUTINE  L “I  FUNCTION  He 

He  He 

He  0 E N E R A !...  P E S C R I P T T 0 N : He 

He 
He 
He 
He 
He 


Me 

He  ACOESSEP  BY  * 

He  ADM(RPTX) 

H< 

He  I.  INK  AGES  t 
He 

He  Arguments  XDB , XDT,  XRT,  XTB . XTT,  All  ADM  Common  Blocks 

* 

He 

He  E X T F R N A I...  R E F E R E N C E S l None 
He 

He  RTF  j FILE  MANAGER  ? I.  1 PR  ARY  t 

X 

He  . 

He 

He  special: 

He  

H< 


X 

APR!  I CAT  TONI 

( N A M E / P t • o rf  r a in  ? 

Sub rout i ns * 

OR  Funct  i on  ) 

% 

/ 

/ 

/ 

/ -« 

He 

/ 

/ 

/ 

/ 

He 

/... 

/ 

/ 

...../ 

X 

/ ... 

/ 

/... 

_ / 

..../... 

He 

/ 

/ 

/ 

../ 

/ 

H< 

% 

DATA  E ILFS  A COE 

Kb LB : None 

X. 

He 





- 

He 

He  He  He  He  He  He  He  He  He  T YHeH:HeH:H:HeHeH;  YHeHeTHeHeT  YHeHeHeHeHiHeTHeHeHeHeHeYHeHeTHeHeHeHeHeHeHeHeHeHeHeHeHeHeY  TMe  YHeYTY  I'TYT 
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-w  #r  -5i~  Jj«r  ->$■  -5^  & r-'f-  *r  -;'ir  -5>ir  t-t  *r  -5^r  •?.*  -X-  -Xt  -54  Hi-  -X  i-r  & ?=-  $£  ^ 


T:ir  -Xc  -fi’ir  t*:£  •5!S*  Xr  ^c*  r-:5r  •$•%*  ■*&■•  -r:?r  **£7 


Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y YYYY  Y YYYYY  Y $ Y Y * Y & Y Y Y * Y Y Y Y Y Y Y Y Y Y Y Y Y Y & Y Y Y Y YYYYY Y !•:  Y Y Y Y Y Y 

Y * 

* S E A M P I...  A N S 0 F T W A R E D 0 C U H E N T A T 1 0 N I . E V E I...  t ... ... 3 . i 

)$£ 

;:  I ,;  0 U T I N E f •!  A t 1 E ; RSPON A U T I -1 0 R i Elm 

Y Y 

Y REVISION  CODE  $ . — DATE: 7/30/7 9 Y 

Y Y 

Y !..  0 C A T 1 0 N / A C C E S S P R 0 C E D U R E t _ & RSE  ON  _ Y 

Y * 

* type:  * 

* r:  :j  program  i:x:i  subroutine  i:  i function  y 

y y 

Y G E N E R A !...  D E S C R I P T 1 0 N ; Y 

Y Y 

Y RSPON  decodes  constraint  numbers  into  messages  to  the  user  regarding  Y 

Y • Y 

Y feasibility  of  a design  drawn  on  the  screen.  Y 

Y Y 

Y Y 

Y 

Y 

Y ACCESSED  BY  t 

Y ...CNS.TR. Y 

Y Y 

Y LINKAGES:  COMMON  - Tektroix,  1 pass  (MODI),  2 pass  (MOD2)  common  blocks. 

Y Y 

Y Arguments  - IAREA,  INDEX  infeasibility  claaif ication  code  and  message  index. 

Y Y 

Y Y 

Y EXTERNAL  REFERENCES:  Y 

Y Y 

Y RTE ? FILE  MANAGER , LIBRARY : Y 

Y ....  CD  SLZ  ( I'CS ) ._ _ Y 

Y Y 

Y Y 

Y 

SPECIAL;  Y 

Y 

_ Y 

u 

A P P !. . 1 0 A T 1 0 N ; C N A M E / P r o s r a rfi  ? S u b ts  o u t i n e ? 0 R F u ri  e t i o r i ) Y 

/ ..._/ /._.  Y 

Y 

D A T A F I !...  E S A C C E S S E D i Y 

Y 

Y 

Y 

YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY YY 
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T‘'^r  "?-:E 


i V-. 


■ 


' 


, 


* 

* 

* 


ZZZtZtZZZtZZZZZtZZZZZZZZZZZZZtZZZZZZZZZZZZZttZZZtZZZZZtZZtZZZZZZZZZZt 

* . _ . . A * 

£ 


LEVEL J 

AUTHOR » Elm  _ „ _ 

date: tJJ-n. 


& RTHTA 


C 3 FUNCTION 


* SEA HP LAN  SOFTWARE  DOCUMENTATION 

% 

Z ROUTINE  name: _R.™T.A_ 

# 

% REVISION  code: - 

% 

# LOCATION  / ACCESS  PROCEDURE: 

Z 

% type: 

% r.  3 PROGRAM  rX3  SUBROUTINE 

# 

* GENERAL  DESCRIPTION: 

* 

$ Calculates  the  radial  distance  and  angle  to  a desired  point  for 

% several  of  the  dragline  simulator  routines. 

* 

* 

Z 

% 

* 

* ACCESSED  BY: 

* „._BCORD__.„_  _SWGA ..BHEEL-. 

Z OBRI 

* linkages: 


$ 

* 

z 

* 

% 

z 

t 

* 

* 

z 

# 

t 

* 

z 

z 


BFILL 


BPWR 


EXTERNAL  REFERENCES { 

RTF ? FILE  MANAGER f LIBRARY: 


SPEC  I A!.. 


APPL I CAT  I ON : < NAME/P  rosi  ram  > Sub  rout  i ne  ? OR  F unci  1 on ) 


./... 

/... 


DATA  FILES  ACCESSED: 


% 
% 
Z 
Z 
* 
Z 
Z 
* 
t 
Z 
* 
Z 
* 
* 
t 
* 
* 
Z 

vie 

Z 
Z 
* 
Z 
Z 
Z 
Z 
* 
Z 
t 
Z 
% 
Z 
Z 
Z 

z 
z 

■i/ 

'V» 

z 
z 
z 
z 
z 

z 


z z 

z zzzzzz  z t zzzz  z z z t ztt  z tzzzzz  z zzzztzzz  % z z z z t z z z z z z zzzzzzzztzzzzzzz  z Z Z Z >jc 
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*** * ***** * **** * ****************  * * * * * * * * * *** * * * * * * * * * * * * * * * * # * * * * * * * t * 


SEAMPLAN  SOFTWARE  DOCUMENT  AT  ION 

ROUTINE  N A HE  J J™VL 

revision  code: 


LEVEL  : 

AUTHOR:  „ W .Lars  on 

date: WJL 


LOCATION  / ACCESS  PROCEDURE  J ... DATA  .ENTRY  .AND _R EVI EW . 


type: 

rx  1 PROGRAM  r 1 SUBROUTINE 

GENERAL  DESCRIPTION: 


r 3 FUNCTION 


Program  to  retrieve  data  from  the  keyed  access  files  for  the  core  hole 
analysis  option  of  Data  Entry  and  Review. 


t 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
t 
* 

* 

* 

* 

* 

* 

* 

* 

* * 
********************************************************************* 


ACCESSED  BYt 
XSEC 


LINKAGES? 

ITEK,  COMMON  BLOCK  from  Program  XSEC 

EXTERNAL  REFERENCES  2 

RTF  f FILE  MANAGER ? LIBRARY: 

. CLQ S | _X%KAFMP ) ......WAR... (.SYS) 

_EXE.CI.RTEJ --RIRYliMiiff) 

_QP.ENK  (XKAFMP  ) 

special: 


APPLICATION?  < NAME/P ros*. ram?  Subroutine?  OR  Function) 


/. 

/ 


DATA  FILES  ACCESSED? 




A 

/. 


/. 

....../. 


* 

* 

* 

* 

* 

* 

£ 

% 

t 

* 

* 

% 

% 

* 

% 

>&r 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

t 

* 

* 

* 

* 

* 
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X 


* SF  AM  PLAN  SOFTWARE  DOCUMENTATION  LEVEL  J - k * 

* t 

X ROUTINE  NAME:  .......SCALE.. AUTHOR  l .Wagner X 

X X 

X REVISION  CODE: DATE  : M3J29. * 

* He 

X LOCATION  / ACCESS  PROCEDURE  i DATA..  .ENTRY..  .AND.  .REV  I EM. X 

X X 

X type:  * 

He  r 1 PROGRAM  C XT  SUBROUTINE  C 1 FUNCTION  * 

t t 

X GENERAL  DESCRIPTION:  * 

X X 

>}c  This  subroutine  is  designed  to  scale  points  from  digitizing  tablet  X 

X coordinates  to  geographical  coordinates  X 

X X 

X X 

X X 

X X 

X X 

X ACCESSED  BY:  X 

He  .....dXgi  tlziug  input  .mu.tin.ei3. X 

X X 

x linkages:  * 

X XMIN , YMIN,  XMAX,  YMAX,  ROTAN , XMLL,  YMLL,  IX,  IY , SCL,X,Y,  IERR  X 

He  (as  desribed  within  the  subroutine)  X 

X H< 

X X 

X EXTERNAL  REFERENCES:  X 

He  He 

He  RTEf  FILE  MANAGER ? LIBRARY:  He 

X X 

X SPECIAL:  He 

X X 

He  APPLICATION*  (NAME/Protfram v Subroutine?  OR'  Function)  X 

X „/ / /..  He 

H<  X 

X DATA  FILES  ACCESSED:  He 

X ... He 

X t 

X He 


He  He  X X X X X X X He  He  He  He  He  X X H<  He  H<  X X X X X X He  X X XX  X X X He  He  t X % He  He  He  X X X He  X X He  X He  X X X X X X X X X X X X X X X X He  X He 
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' 


■ 


■ 


■ 


- 


■ 

* 4 * 

* SEAMPL.AN  SOFTWARE  DOCUMENTATION  LEVEL t * 

)fc  ^ 

* routine  name:-.-.™-1!.-. author:-.,.™ * 

* 8-25-79  * 

* revision  code: date: ....  # 

* & SFILL  * 

* LOCATION  / ACCESS  PROCEDURE: - * 

* % 

# type:  # 

# r.  a program  rxn  subroutine  r a function  & 

# t 

# GENERAL  DESCRIPTION:  * 

# t 

# Called  by  PINIT  to  shape  the  overburden  grid  (done  in  7 calls) . # 

X<  5k 

Xc  # 

t # 

% % 

$ % 

t * 

% ACCESSED  BY:  % 

>k  JBINJL1 # 

X:  * 

# linkages:  * 

& & 

3k  * 

# VS 

# t 

# EXTERNAL  REFERENCES:  # 

# >K 

& RTEr  FILE  MANAGER ? LIBRARY ♦ £ 

% t 

t i< 

i<  special:  £ 

# _ _ * 

t i 

% APPLICATION:  ( N a fi E / P r a e£  r a m ? Subroutine * OR  Function)  3fc 

* —.HH /E.  .._JPUim_/S  /...  * 

3k  5k 

* DATA  FILES  ACCESSED:  * 

5k 

t * >K  3k  1 1 1 >k  sk  5k  3fc  1 1 1 %%%*%%%%%  5k  % t<  t % * 1 1 1 $ 1 1 3k  3k  >k  5k  >k  1 1 >k  % t & tttttt  % %%%%%%%  t x<  # t % % % & >k 
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5* 


X X x X X X X X X X X X X X X X X X X X X X * X X X X X X X X X X X X x X X X X X X X X X X * X X X X X X X X X X X X X X X X X X X X * ' !■' 
X x 

X S E A h p LAN  S 0 F T W A R E D 0 C U M E N T A T 1 0 N I.  E M E L 5 3 - '. ' X 

X $ 

x R 0 (J  T I N E N A M E I SHADE A U T H 0 R i ELm X 

X X 

X R E V I S 1 0 N C 0 D E i D A T E : 7/30/79 __ % 

x x 

X j...  0 C A T 1 0 N / A C C E S S P R 0 0 E DU  R E l .&  SHADE.  ...file ...  * 

X X 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 


[. X ;;|  SUBROUTINE 


* type; 

x i::  :i  program 

* 

* G E N E R A I...  D E S C R I P T 1 0 N J 
X 

Shades  spoil  slopes  by  drawing 


IT.  .".I  FUNCTION 


* 

X 

X 

X 

X 

X 

X 

X ACCESSED  BY; 

X . drwpl 

X 

X LINKAGES; 

X 

X COMMON  - DIAGR  6 Code  (others  for  position) 

X 

;fc  Arguments  XI,  Yl,  XDIREL,  YDIREC,  RNDEX,  X DIST;  starting  spoil 

X EXTERNAL  REFERENCES » pile  location  and  shading  qeometry  value. 

X 

R T E , F I !...  F M A N A G E R , I...  I B R A R Y i 

DRAWR  (TC  S ) MOVEA.  ...(TCS  ) _ 


X 
X 
X 
X 
X 
X 

I 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

X 

X 

X 


iPECIALi 


A PPL  I CAT  I ON 


( N A M E / P r o s r a m ? S u b r o u t :i.  n e ? 0 R F u n c t i o n ) 


X 

- - /„ 

- - /- 

- - 



— /.» 

X 

/ ... 

/ .... 

/ 

/ .... 

X 



/... 

/.... 

/... 

/ 

/ .... 

X 

/.... 

/.... 

/.... 

/... 

/ .... 

X 

X 



/.... 

/ 

X DATA  FIEFS  ACCESSED; 
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w & 


SEAMPLAN  SOFTWARE  DOCUMENTATION 
ciipT 

ROUTINE  NAME — 

REVISION  code: 

LOCATION  / 


type: 

r.  3 


PROGRAM 


rx3  SUBROUTINE 


C 3 FUNCTION 


GENERAL  DESCRIPTION: 


Calculates  the  height  of  G spoil  pile  segment  for  the  dragline 
simulator 


ft******************************************************************** 

$ 

LEVEL  ? — $ 

& 

AUTHOR  * 

DATE:.. 8/25^79 % 

* 

ACCESS  PROCEDURE: kSHGT * 

* 
* 
* 
% 
* 
* 
* 
* 
* 
* 
* 
* 
* 
% 

% 

% 
t 
* 
* 
t 
% 
* 
% 
% 

t 

# 

__ * 

% 


& 

# 

t 

* 

t 

* 

% 

* 

* 

* 

* 

* 

% 

* 

* 

* 

* 

* 

* 

% 

* 

* 

% 

* 

* 

* 

t 

% 

& 

* 

% 

£ 

% 

% 

# 

& 

t 

* 

% 

# 

t 

% 

* 

# 

# 

t 

t 


ACCESSED  BYJ 

SPILE 


Jill 


EXTERNAL  REFERENCES: 


RTF r FILE  MANAGER?  LIBRARY: 


RP 


PF.CI  AL : 


application: 
- _ /_ 



/.. 


< NAME/Prodrsm ? Subroutine?  OR 


Function ) 
/ 


DATA  FILES  ACCESSED: 


/.. 

/.. 

/-. 


* 

t 

* 

t 

* 

* 

* 

* 

* 

t 

% 

* 

% 

* 
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£ £ £ ££££  £ £ 1 £ £ £ £££££££££££  £ & £ £ ££££££  £ £ £ £ £ £ £ £ * £ £ £ £ & * % 

£ ^ 

* SEAM F'L AN  SOFTWARE  DOCUMENTATION  LEVEL ? „.„it * 

* £ 

* ROUTINE  NAME  ? SORT. AUTHOR?  ..^..Larson. # 

# # 

$ REVISION  code: DATE: J5/Z2. * 

* # 

* LOCATION  / ACCESS  PROCEDURE: DATA. TO. AND... RE.VXEW, * 

# # 

* type:  * 

* C n PROGRAM  r.  XT  SUBROUTINE  r 1 FUNCTION  >* 

* £ 

* GENERAL  DESCRIPTION:  # 

* & 

Finds  the  Maximum  and  minimum  for  an  array.  £ 


* 
t 
£ 

£ 

* 

>5:  ACCESSED  BY: 

* ...cm:..... 

* linkages: 

t 

% VAL , AMAX,AMIN,N 

* 

& 

>X  EXTERNAL  REFERENCES  I 
# 

* RTE?  FILE  MANAGER j>  LIBRARY? 

# ..._ 

& 

$ 


special: 


# 

# 

* 

t 

55c 

& 

# 

£ 

* 

>:< 

* 

& 

# 

& 

& 

>■; 

£ 


t 

£ 

£ 

\V 


APPLICATION: 


( NAME/P  ros*  ram?  Subroutine?  OR  Function) 


£ 

£ 

* 

* 

$ 

./._  * 


£ 

/... 

/„ 

/._ 

/ ... 

/.. 

£ 

£ 

i 

\ 

! 

i 

i 

i 

£ 

t 

i 

/_. 

/_ 



/.. 

£ 

£ 

/ 

/ 

./„. 

/.. 

./  . 

£ 

/ 



/_ 

£ 

£ 

£ 

* 

DATA  FILES  ACCESSED? 

t 

NT' 

£ 

s ; 

i i 
! ; 
! i 
i i 
i i 
i i 
i ! 
i i 
i i 

ZZZZZ 

& £ )K  £ £ £ £ £ £ £ £ £ & $ 1 1 £ 1 £ £ £ £ £ 36c  t £ £ £ Jjc^sfc^cjfof:  1 £ £ 3fc  £ £ £ £ ££££  £ £ % % % % % £ £ t £ £ t £ t £ £ £ £ £ £ £ £ 


151 


, 

' 


■ 


. 


. 

■ 


■ 

Si 


^ 


X % tZZZ  Z Z * Z £ * % £ Z * Z * * Z * Z * ************  * Z Z Z ZZZZZ  Z Z Z Z Z Z Z * ZZZZ Z Z « £ £ Z * £ Z Z Z * 

* Z 

* SEAM  PI.  AN  SOFTWARE  DOCUMENTATION  LEVEL  J 3 * 

% £ 

Z ROUTINE  NAME; SPCNF AUTHOR  J _._ .Elm * 

Z t 

z revision  code: date: 3.DAJJ3. z 

% % 

Z LOCATION  / ACCESS  PROCEDURE: §PCNI * 

% z 

* type:  5fc 

% 13  PROGRAM  EX  3 SUBROUTINE  l 3 FUNCTION  * 

Z £ 

Z GENERAL  DESCRIPTION:  Z 

Z % 

% Solves  for  rehandle  area  requirements  parameter  DELC.  Z 

% Z 

£ Z 

Z Z 

Z % 

& % 

% % 

% ACCESSED  BY:  * 

Z J!flD.n2 * 

* z 

z linkages:  * 


% COMMON  - IF COM 5 Ml  COM,  M2 COM , T2C0M  blocks 

% Arguments  - AREA,  AHAiT,  WPRIM 

% 

% EXTERNAL  REFERENCES: 

% 

Z RTF. 9 FILE  MANAGER r LIBRARY: 

Z 

% 

z special: 

z 


application: 
ECJ1Q.D / JF 


(NAME/Pro3ram * Subroutine*  OR  Function) 


>v 

/_ 

/ 

z 

/_. 

/.. 

% 

/„ 

/„ 

z 

/_ 

/_ 

_/„ 


/... 

/_. 


Z 

z 

z 

z 

z 

z 

z 

z 

% 

z 

z 

z 

z 

z 

% 

z 

% 

% 

% 

z 

z 

z 


Z DATA  FILES  ACCESSED: 

XV  

z 

z z z z z z z z z z z z % z z z z z z z z z z % z z % z z z z z z z z z z z t z z z zz z % z z z z z z z z z z z z z z z z Z Z Z Z Z Z X 


>v 
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%XM***t****t****K**********'*************X*************************** 


* A * 

* SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL  J — t * 

* ROUTINE  NAMEJ__S_Pi!£ AUTHOR!  J?I'i * 

3fC  $ 

* REVISION  CODE: DATE  J — t 

* LOCATION  / ACCESS  PROCEDURE: * 

* t 

* TYPE : * 

* r 3 PROGRAM  no  SUBROUTINE  C 3 FUNCTION  * 

t t 

* GENERAL  DESCRIPTION:  * 

X Calculates  time  required  for  hoist,  drag,  or  swing  motions  for  a * 

% given  portion  of  the  bucket  trajectory.  X 

* 

& * 

* # 

3fc  tf 

# * 

* ACCESSED  BY:  ' * 

3-  TPWR * 


* 

t linkages: 

% 

* 

* 

t EXTERNAL  REFERENCES: 

& 

* RTF r FILE  MANAGER » LIBRARY: 

t 


special: 


APPLICATION:  (NAME/Prosram?  Subroutine?  OR  Function) 


/_ 




/. 

A 

/. 


/_ 

/_. 


/.. 

/.. 

/.. 


£ DATA  FILES  ACCESSED: 


t* 

% $ X & £ >;<  1 1- 1 zztzzz  Z % Z t % % X z z % t z z z z z tzzz  X Z Z X Z ZZZZ  >!<  $ % Z Z Z Z Z Z Z t Z Z Z X Z X Z Z Z Z * i 


% 

X 

% 

X 

X 

X 

X 

% 

% 

% 

% 

z 

% 

% 

X 

X 

X 

\V 

nz 

t 

. z 

vV 

. % 

. % 
% 
% 

. z 
. % 
% 
zz 
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& Jjc 

» SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVELi_il * 

* SPILE  * 


t ROUTINE  NAME!- 
£ 

t REVISION  code: 

% 

% 

# 

* type: 

* n 3 PROGRAM 
X 

X GENERAL  DESCRIPTION! 

* 


* 

X 

X 

X 

X 

X 

# 

>;c 

* 

X 

* 

& 

# 

& 

* 

X 

X 

g 

* 

X 


EX3  SUBROUTINE 


C 3 FUNCTION 


ontrols  spoil  pile  buildup  during  dragline  simulation. 


ACCESSED  BY! 
OBR 


.AUTHOR:  H.n! •* 

pate:.._HH/22 * 

3jC 

LOCATION  / ACCESS  PROCEDURE! t-EllEi * 

X 
X 
X 
X 
X 
X 
X 
X 
X 
g 
X 
X 
X 
X 
X 
X 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

x 

X 
X 
X 
X 

\'s 

X 
X 
X 
X 
X 
X 
X 
X 
X 


X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
% 

X EXTERNAL  REFERENCES! 


RTEp  FILE  MANAGER r LIBRARY! 


special: 


application: 

„„SU(TL/JS 

/_ 

/.. 


( NAME/Prodram t Subroutine?  OR 


Function) 
/_ 

/ 


DATA  FILES  ACCESSED! 


/.. 

/.. 

/.. 


X X X X 1 X X v & 1 X £ £ X £ X £ £ X X X X X X & £ # # & £ % X X * X X *<  X X X X & £ £ £ £ X X XXX  XX  X X X £ * X X t X £ X X X X 
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, 


■ 


. 


. 


■X  -*  -X-  -X  -X 


t*%**%%%t*%t****t*%Z*K***%%*t*X*********%***%***%**%**X%***%%*****%%Z 

% 4 * 

* SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL  — - # 

& ^ & 

* ROUTINE  NAME! _ AUTHOR  l _E3J!L t 

5§f  $ 

t revision  code: date: — t 

% % 

* LOCATION  / ACCESS  PROCEDURE J &SMED * 


[X  3 SUBROUTINE 


C 3 FUNCTION 


* 

% type: 

% r 3 PROGRAM 
3fc 

* GENERAL  DESCRIPTION: 

* 

$ SPRED,  originally  named  SPREAD,  distributes  material  dumped  in 

3fc  a bench  fill  operation  or  graded  while  bucket  heeling. 

# 

* 


* ACCESSED  BYJ 

$ BHEEL___, 

% 

* linkages: 

* 


._MXLL 


* 

# 

* 

* 

* 

* 

* 

& 

* 

# 

% 

* 

& 

t 

* 


A EXTERNAL  REFERENCES: 

£ 

* RTEf  FILE  MANAGER ? LIBRARY  I 

£ . __ 

& 

t special: 


t 

* 

& 

a 


application: 

_NH_/_F 

/_ 

_ /.. 


(NAME/Prodrsn?  Subroutine?  OR  Function) 


PUTNH_/S 


MH_/£ 


:/_ 


* 

t 

t 

* 

* 

t 

t 


% 

% 

% 

% 

t 
* 
* 
t 


* DATA  FILES  ACCESSED 5 

* 


._/ 

* 

# 

& 

$ 

t 

& 

: t % t t t 
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I 

I 

1 

I 

l 

I 


I 


XXXX  X X **********  * 1 X X 1 X X X * X X X X X X X X ******  X 


X S f r A M P f. . A N S 0 F T W A R F.  D G C U M E N T A T I 0 N L E MEL  J $ 

& 

* ROUTINE  NAHE SQUAR AUTHORS „ M:._Wa£ner .... 

Ur 

X REVISION  CODE: DATE S — „ 8/3/7 9 

X LOCATION  / ACCESS  PROCEDURES DATA  ENTRY.  AND  .REVIEW 


X TYPES 

X F 1 PROGRAM  I X3  SUBROUTINE  T 3 FUNCTION 

* 

* GENERAL  DESCRIPTIONS 
X 

$ This  subroutine  is  used  by  all  digitizing  input  routines.  It  is 

£ used  to  find  the  positioning  of  the  map  on  the  digitizong  tablet. 

X 

X 

X 

X 

X 

X ACCESSED  BYS 

$ All  digitizing  input  routines 

* 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 

X 

X 


X LINKAGES S 
X 

* XMLL,  YMILL , XMLR,  YMLR,  DX4,  DYM,  DXM,  DYM,  ROANG 5 IC 

$ (as  described  within  the  subroutine) 

& 

* E X T E R N A t.  RE F E R ENCE S S 

* 


X 


X 

X 

X 

X 


X RTF?  FILE  MANAGER  * LIBRARY:  * 

* ...  ANMOD  (TCS)  INI TT_. (TCS ) Jp.NEP.T_ _{  % TABLT ) * 

X 1.BELL (5CS)  ... ImOVAB " .(TCS ) ” JTB INT ^ "(% TABLT ) ™ ” ™ ~ _ ~ ~ ~ „ IIILLIII X 

X „ ...BNLOC  .(SYS ) NEWP C (TCS ) ___ X 

X X 

X SPECIALS  * 

* * 

X APF'LICATION S < NAME /Pro  <3  raw  r Subroutine y OF:  Function)  X 

X OT.LN /S  /...  /__  / _/„  X 

X t 


X BATA  FILES  ACCESSED S 


X 


..  X 


X 


X 


XXXXXXXXXXXXXXXXX X X XXX X X X X X X X X X X XX XX X XX XX X X X X XX XX XX X X X X X X XXX XX XXX X XXX 


156 


' 


If 

, 


. 


. 


i 


. 


! 


. 


! * \ 


. 


■KM 


t X X X X *:  X XXXX  X X * 5*c  -i<  * * X % X X X X X X X X * X X X X X X X X X X * X X t X X X X * X X X X X X X X X X X X X X X X X X X X 


Xc 

S A M P I A N s 0 F T W A R F:'  D 0 C t i M F N T A T I 0 N I . F U F I...  J 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

* 

X 

X 

X 

X 

X 

X 

* 

X 

X 


* 

X 

& 

* 

X 

X 

X 

X 

X 

X 

•4; 

X 

X 

4: 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 


R 0 I I T I N F N A M FT  t . STUP  3 A I ) T I I 0 R l Lehman 

R E U I S X 0 N C 0 D FT  ♦ 1 .• 0 - - • D A T IT  l §1 1 (29.. 

1 . 0 C A I T 0 N / A C C E S S P R 0 C E D U R E 5 ..&STUP.3  ... f. ile 

type: 

r x : 1 program  n :i  subroutine  r:  :t  function 

GENERAL.  DESCRIPTIONS 

Gets  viewing  parameters  for  three  dimensional  displays. 


ACCESSED  BY t 
I.  INK  AGE  Si 

Retrieves  TRD  common  block  from  disc. 

F X T FT  R N A I...  R E F FT  R FT  N C FT' S I 

RTF  ? FILET  MANAGER?  I I BRARY  t 

RMPAR EXEC 


SPECIALS 


ARP!.  I CAT  IONS 

/... 

/.. 

/. 


( N A M FT  / P r o a r a m ? S u b r o u t i n e ? 0 FT  F u n c t i o ri ) 


/ / /.... 


/... 


/... 

/... 


DATA  FILES  ACCESSED S 


X 


X 

X 

X 

X 

X 

X 


X 

X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
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& ¥:  34  -34  -34  -34  ->5-  34  34  34  -34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  34  33  34  34  34 


* 


. 


XitXtXtXtttttttXtXtXtttttXttXtXtXttXtttttttXttXXtXtXtttttXttXtttXttt 


$ 

t SEAMPLAN  SOFTWARE  DOCUMENTATION 


t 

t ROUTINE  NAME?. 
* 

X REVISION  code: 


SVOL 


level:„_ 

AUTHOR  t 

8/25/79 


date:... 


&SVOL 


C 3 FUNCTION 


* LOCATION  / ACCESS  PROCEDURE: 

* 

* type: 

t r.  3 PROGRAM  nx  3 SUBROUTINE 

* 

* GENERAL  DESCRIPTION: 

X 

X Calculate  the  volume  contained  in  a spoil  pile  segment  (5-99) . 

* 

* 

X 

X 

X 

X 

X ACCESSED  BY: 

# 

* linkages: 

x 

x 

x 

x 

JSC  EXTERNAL  REFERENCES: 

X 

X RTE y FILE  MANAGER?  LIBRARY: 

* 

X 

X 

£ 

3« 

* 

* 

& 

X 
X 


special: 


APPLICATION:  ( NAME/P ro3 ram?  Subroutine?  OR  Function) 

X 

X DATA  FILES  ACCESSED i 

X . „„  

X 

X 


tt 

* 

* 

X 

X 

* 

X 

X 

X 

X 

X 

X 

X 

X 

t 

X 

X 

X 

X 

X 

X 

t 

X 

X 

X 

X 

X 

X 

X 

t 

t 

X 


X 

X 

X 

X 

X 

#• 

X 

X 

& 

<v* 

$ 

X 

X 

X 

X 

X 

X 

X 
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# # t ******  * * * * * ****  * ******  1 1 ****  * * * * * ***  * t * * # * * * * ttt  1 * * * * & * # 4C  4c  * * * * * 4c  4 4c 
4c 

* 

4c 

* 

* 

4c 
4c 
* 


S E A M P I . A N S 0 F T W A R E D 0 0 U M ENT A T 1 0 N 


ROUTINE  NAMF:.__.5WC0N-. 


REVISION  code: 


.HUE!. 


AUTHORI 


DATE!.. 


_ 4-. 


~M 


.Wagner.. 

.6/3./ .7. 9. 


LOCATION  / ACCESS  PROCEDURE! 


.DATA.  ENTRY...  AND... .REVIEW 


* 

* 

* 

* 

* 

* 

* 

* 

4C 

* 

* 

& 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


TYPE! 
r.  i 


PROGRAM 


TX1  SUBROUTINE 


r 1 FUNCTION 


GENERAL  DESCRIPTION! 

This  routine  is  designed  to 
continuous  data. 


SWAP  in  the  drawing  routine  (CONDR)  for 


ACCFSSEB  BY! 
.-..CQNCN 

LINKAGES! 


IPRM,  COMMON  BLOCK  from  PROGRAM  CONCN . 


EXTERNAL  REFERENCES ! 

RTE f FILE  MANAGER t 
EXEC....CR.TE) 


. I PR ARY X 


SPECIAL 


DATA  FILES  ACCESSED 


* 

4c 

* 

********  * & * 4c  * * t 1 * ******  * * 4c  4c  4c  * % * % * % % % t * t * * * ********) 


4c 

* 

* 

* 

* 

* 

* 

# 

* 

* 

% 

* 

4c 

* 

t 

* 

4c 

$ 

* 

4C 

* 


* 

4c 

4". 

* 

* 

4c 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

& 


* 

APPLICATION! 

( NAME/Pro^rafft  ? 

Sub rout  i no  r OR 

Function ) 

* 

* 

__ 

/ 

/ 

/... 

/._. 

4c 

* 

/_ 

/ 

/_.  

/ 

/.„ 

* 

* 

/... 

/_  



/.„ 

* 

* 

„/... 

/..  

/_ 

/.  

/... 

t 

% 

/„ 

/„  

/ 





* 

* 

_ * 

t 

c************** 
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' 


. 


. 


■ 


% 

$ SEAMPLAN  SOFTWARE  DOCUMENTATION 

* SWGA 

* ROUTINE  NAME:__„; — — — 

* 

# REVISION  code: 

jjf 

* LOCATION  / ACCESS  PROCEDURE: 


&SWGA 


level: 

author: JH! 

PATE  5 — 8/25/79 


* 

* type: 

* r 3 PROGRAM  n X3  SUBROUTINE  n 3 FUNCTION 

* 

* general  description: 

& 

% Moves  the  bucket  from  bucket  loading  position  to  dumping  position 

% and  vice-versa  during  dragline  simulation  of  overburden  removal. 

% Updates  swing  angle  histogram. 

* 
t 
* 

* 

* ACCESSED  BY? 

* OBR 

* 

* linkages: 


% 

% 

t 

% 

% 

t 


EXTERNAL  REFERENCES: 
RTF 9 FILE  MANAGER » 


library: 


% 

% 

* 

* 

% 

# 

* 

* 

* 

* 

* 

* 

* 

* 

% 

# 

t 

% 

t 

* 

* 

* 

* 

* 

* 

* 

# 

t 

* 

% 


t % 

t special:  * 

& _ __ _ ... t 

t « 

% APPLICATION*  (NAME/Prodrarfi y Subroutine?  OR  Function)  X< 

& „ „ JLQQBI) / _S  ___£IEZAu_/S.  _ 1T£UIL_/S  /_  % 

% i 

# DATA  FILES  ACCESSED!  £ 

t >■< 

t % 
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■ 


■ 


' " ^ '.at 


>jc  $ * 1 * ******  * ********  * * * * * * * * * * * * * * * * ***********  * * * * * * * * * * * * * * * * * * * * * * 


* 

* 

* 

* 

* 

* 

# 

* 

* 

& 

# 


LEVEL  J-JL. ___ * 

* 

AUTHOR : _ELnL__ * 

DATE  « - * 

* * 

* LOCATION  / ACCESS  PROCEDURE: iS^IHL__ * 


* SEAMPLAN  SOFTWARE  DOCUMENTATION 

* SWTCH 

* ROUTINE  NAME? „ — — 

* 

* REVISION  code: - — ~ — 


rxT  SUBROUTINE 


C 3 FUNCTION 


* 

* type: 

* r.  3 PROGRAM 

* 

* GENERAL  DESCRIPTION: 

* 

* Routine  coded  at  MSU  to  interface  the  dragline  simulator  with 

* SEAMPLAN.  Converts  ADM  variables  to  MD  equivalents. 

* 

* 

* 

* 

* 

* ACCESSED  BY: 

^ _£XDRG_ 

* 

* linkages: 

* 

* COMMON  _Blank;  M.D. , ADM  labeled  blocks 

* Arguments  - none. 

* 

# EXTERNAL  REFERENCES: 

* 

* RTF?  FILE  MANAGER?  LIBRARY: 

* 

t 
& 

* 

* 

* 


special: 


APPL I CAT ION! 


DATA  FILES  ACCESSED: 


( NAME/Prodram ? Subroutine?  OR  Function) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

Jjc 

* 

••v 


* 

* 

./_  * 
./_  * 

* 


* 


* 


* * * * * * * * ******** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ****** * * * * * * * * * * 
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* 

# S F. A M P LA N S 0 F T U A R E D 0 C U MEN T A T I 0 N 
He  ROUTINE  name: SJilf.Q 


LEVEL : -.3 

A U T H 0 R : _. „ M_.  Jtajgn  e r 

DATE : .8/3/79 


* REVISION  code: 

* LOCATION  / ACCESS  PROCEDURE? >PATA_ENTRY_  AND  REVIEW  

* 

* type: 

& rX.l  program  r:  3 subroutine  c t function 

* 

t GENERAL  DESCRIPTION? 

He 

# This  program  is  designed  to  create  and/or  edit  a symbol  table  to 
t be  used  for  digitizing  point  data. 

* 

* 

* 

* 

He 

He  ACCESSED  BY? 

* PTDTA 

* 

* linkages: 

* IPRMt  ITEK,  COMMON  BLOCK  from  Program  (PTDTA) 

He 

He 

* EXTERNAL  REFERENCES? 

He 

* RTF  r FILE  MANAGER ? LIBRARY? 

* 

% 

>K 

* 


* 

V 

% 

He 

* 

H< 

* 

# 

He 

# 

He 

He 

He 

He 

He 


He 

He 

He 

He 

He 

t 

He 

t 

% 

t 

t 

He 

He 

He 


ANMOD  (TCS) 
BELL  (TCS) 
CHS  I Z (TCS) 
MOVE  A (TCS) 

special: 


CLDFL  (%DAFMP)  DREAD  (%DAFMP)  _DWRIT  (%DAFMP)  INITT  (TCS)- 

DFNFL  (%DAFMP) DRWAB  (TCS)  _ EXFC'JPTF)  “ lOWAT  (SYS)- 

“ DRAWA  "(TCS)  ”~DSHAB  (TCS)  hMe'XTCS)  ' "^MOVABlTCS)- 
"RMPAR  (SYS)  flNPT  (SYS)  '“IJEWPG  (TCS)  SWNDO'  ( TCS 
VWNDO  (TCS)  ONEPT  (%TABLT)  TBINT  (%TABLT ) * 


He 


application: 
___  SCALE  / S 

SQUAR.../1S 


t 
t 
* 

* 

* 
t 
t 

He  DATA  FILES  ACCESSED: 
He 


( NAME/P  ros?  ram?  Subroutiner  OR  Function) 


/ 




/_. 


He 

He 

* 

He 

He 

He 

/....  He 

/...  He 

He 

He 

He 

$ 

He 


He  He  He  He  He  He  He  t He  He  He  t He  He  He  He  He  He  t He  He  He  He  He  He  He  He  He  He  He  He  $ He  H H H He  He  H He  He  He  He  He  He  t H H H He  He  t He  He  He  He  He  He  t % % % %%%%%%% 
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X X 1 X X X XXXXXXXX  * X X X X >5:  X X * 1 1 XXXXXX  t XXX  X % X X X XXXX  X X X XXXX  % % X X X X X % Z % XXXXXXX  Z 

t x 

t SEAM  PLAN  SOFTWARE  DOCUMENT  ION  LEVEL.  ♦ 3 X 

% X 

X ROUTINE  name: .._JJJNE ~ AUTHOR  :.__.E4m * 

X X 

# revision  code: date: 8/1.6/79 * 

X % 

X LOCATION  / ACCESS  PROCEDURE:.. &TJME _ X 


X X 

x type:  * 

x r 3 program  r 3 subroutine  rx 3 function  x 

x x 

X GENERAL.  DESCRIPTION:  X 

X X 

X TIME  evaluates  the  time  for  a two-pass  stripping  operation  to  uncover  X 

X the  design  area.  X 

X X 


X X 

X '4C 

sec  x 

X X 

X ACCESSED  BY:  X 

X X 

x linkages:  $ 

X COMMON  - IFCOM,  Mi  COM,  M2 COM , T2C0M  blocks  * 

X Arguments  - W12,  W22,  TIME1 , TIME2 , TDIGi,  TDIG2 , TWALK1  , TWALK2.  X 

X X 

X X 


X EXTERNAL  REFERENCES « 

X 

X RTEf  FILE  MANAGER?  LIBRARY: 

* 

x special: 

'f- 


X 

X 

X 


t 

t 

X 

X 

X 

X 


X APPL.  I CAT  I ON  t ( NAME/P  rod  r sm  ? Sub  rout  i ne  v OR  Funct  i on ) 


% 

W.23 /f  

/.. 

/... 

/... 

/_. 

X 

/_  

/_ 

/_ 

/_. 

% 

/...  

/.. 

/_ 

_./... 

% 

_/ 

/.... 

/... 



/ 

% 

/_  

/„. 

/... 

/„. 



X 

X 

DATA  FILES  ACCESSED: 

/r- 

X 

t 

X 

X 

X 

t 

X 

t 

X 

X 

X 


X 

xxxxxxxxxxxxxxxxxxtxtxxxxx 


X 

xxxxxxxxxxxtxxxxxxx X t X X X X % it  XX X X 1 X X X X % % % X XXX 
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1 * * * * * * * * * % * * * * * * $ $ # * * * * * * ******  * * ****  * * * *****  * * * * * * * * * * * * t * * * * * * * * * * 


* * 

* SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL  ? 3 * 

* * 

* ROUTINE  NAME* TIME1 AUTHOR ? JElm * 

* * 

* revision  code: date: -8/1.6/79 * 

* * 

* LOCATION  / ACCESS  PROCEDURE: &HME1 ...  * 

* * 

* type:  * 

* r 3 PROGRAM  r.  1 SUBROUTINE  CX  3 FUNCTION  # 

* * 

* GENERAL  DESCRIPTION?  * 

* * 

* TIME  1 is  called  to  evaluate  the  time  to  strip  the  designated  * 

* design  area.  * 

* * 

* * 

* * 

* * 

* * 

* ACCESSED  BY:  * 

* M0D.1_ * 


* linkages: 

* COMMON  - Flexible  Tolerance,  Ml  COM,  T1C0M 

* Arguments-  BOOM;  Bucket  size. 

& 


* 

* 


* EXTERNAL  REFERENCES: 

* 

* RTF?  FILE  MANAGER?  LIBRARY? 

* 

# 

# SPECIAL? 

* 


* 

* 

* 

* 

* 

* 

* 

* 


APPLICATION? 


(NAME/F’rosSrsrrt?  Subroutine?  OR  Function) 


/„ 

/_. 


_/.„ 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


./...  # 


/... 


* DATA  FILES  ACCESSED?  * 

* 

**** * * **** * * * *** * * * * * * * * * *********  * * *** * **** * * **** * * * * * * * * * * * * * * * * * * * 
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jjc  % t % % X He  X % * 1 1 % 'M  X X X X X X X X x X X X X:  X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 
X X 

X S r::  A M p I . A N S n !'•  1'  14  A R F D 0 C U M F.  N T A T 1 0 N I F. 1 • E Li  He 

X , X 

X R o 1 J T T N E N A M E i .. ..  TOPO A U T H 0 R J Lehman X 

X He 

X REV  I S I ON  CODE  l 1..-...Q DATE  : ..  6„/l/79_ He 

X He 

X LOCATION  / ACCESS  PROCEDURE  i &.TOPO He 

X x 

X TYPE i X 

x r x i program  r:  :.i  subroutine  r :i  function  x 

X He 

X G E N E R A !...  D F S 0 R I P T 1 0 N t X 

He  X 

He  Prepares  data  and  parameters,  previously  initialized,  for  contour  # 

X X 

displays  of  gridded  data.  H< 

X He 

X X 

X Y 

X He 

X ACCESSED  BY  t X 

X ..  DENRV He 

X X 

X I INK AGES t X 

He  X 

X X 

X He 

He  He 

He  F X T F R N A i...  R E F F R E N C E S •>  X 

X He 

He  R T F , F 1 1...  E M A N A G F R , i . I B R A R Y I He 

He  ..  JBMPAR EXEC X 

X X 

X X 

He  • He 

X SPECIAL : He 

He  ..  .TCS DSP SWAP X 

X X 

X ' H< 

He  A P P 1 . 1 C A T 1 0 N ; C N A M E / P t--  a s T'-  a m ? S i..i  b r o u t :i.  n e •>  0 R F 1. 1 r-i  a t i o n ) X 

He  . ..  CRD  IN / ..CNTRG. / ZOOM / BOX / / ..  X 

He  / / ./ / /....  X 

X / / /. / /...  X 

He  / / / / /..  He 

He  / / ./ ./ /....  He 

He  He 

He  DATA  FILES  ACCESSED  t He 

He  ...GRID He 

He  He 

He  He 

HeYHeHeH:YHeHe:feHeHeYHH:HHHeHHHeHHeHeHHYHeH:He:ieH:eKH:HeHeHiHeHH:YH<YH:HHeekH:HYHeYHeHeHeHeH?Hin.H:HeHHeefH:ee 
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$ X&ttKttZkt  1 1 * 

t 

t 


/ * 


SEAMPLAN  SOFTWARE  DOCUMENTATION 


% 

t 

* 

* 

* 

* 

% 

* 

* 

* 

t 

* 

* 

* 

* 

% 

* 

* 

* 

* 

t 

% 

t 

* 

* 

* 

t 

% 

t 

% 

% 

# 

t 

% 

* 

* 

a 

% 

t 

a 

% 

% 

% 

# 

* 

* 

t 


ROUTINE  NAME 


TPWR 


REVISION  code: 


LOCATION  / ACCESS  PROCEDURE: iI_PWR. 


type: 

r.  n 


PROGRAM 


rx^  subroutine 


LEVEL  * 

& 

AUTHOR:  Sim * 

* 

DATE: 8/25712. * 

% 

# 

& 

t 
t 


C 3 FUNCTION 


GENERAL  DESCRIPTION: 


TPWR 

time 


uses 

and 


given  bucket  tragectory  coordinates  and  calculates 
energy  needed  to  move  the  bucket  through  that  path. 


the 


ACCESSED  BY 

MOVE 


linkages: 


SWGA 


s>m. 


EXTERNAL  REFERENCES 


RTE ? FILE  MANAGER ? LIBRARY: 


special: 


APPLICATION:  (NAHE/Prodrsiri?  Subroutine?  OR  Function) 


DATA  FILES  ACCESSED: 


* 

% 

* 

* 

# 

* 

* 

t 

* 

t 

t 

t 

t 

* 

t 

% 

t 

t 

t 

% 

# 

* 

* 

& 

t 

* 

% 

% 


-SPEEiyj 

____ /_ 



/„. 

/_ 

— /_ 

/_ 

— — — /_ 

/_ 

# 

_ _ / 

— ._/ _ 

- — . — --/  - 

— — — — -X  - 

/ 

& 

% 

/_ 

/_. 

»_/  — 



__  _ /.,. 

___ /„ 

. /_ 

„ /-. 



t 

* 

* 

% 

% 
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#7  i'~ 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XX  XX  X X X t X X X %■  X X X X * X X ^<  X X XX  XX  #*# 
X X 

X s E A M P !...  A N S 0 F T W A R E D 0 C U M E N T A T I 0 N !...  E V E I...  ? ....  - .3 _ X 

X X 

' R Q i J r T N E N A M E ? TRACK A U T H 0 R J Elm  # 

X X 

* r e v :i:  s i o n c o d e t .. - n a t e ? 1 /Mil  ? x 

# • % 

X.  I 0 C A T I 0 N / A C C E S S P R 0 C E D I J R E l & TRACK * 

X X 

T Y P F J Y 

x i m program  i:k  :i  subroutine  r ::i  function  # 

x x 

X G E N E R A I. . D E S C R I P T 1!  0 N ? X 

X X 

X TRACK  draws  the  dragline  tracks  to  seal.  ;k 

* X 

X X 

X X 

X X 

X 
X 

X ACCESSED  BY  ? " 

....DR.WXS . X 

X 

LINKAGES?  COMMON  - Tecktronix;  1 pass(M0D2)  and  2 pass  (MOD2)  models,  and 

X X 

X DIAGR  blocks.  Arguments  - IVIEW,  SCALE,  XOFF  - IVIEW  not  used,  SCALE  and 

X X 

X XOFF  are  scaling  & location  variables.  X 

X EXTERNAL  REFERENCES?  • * 

X X 

X RTF?  FILE  MANAGER v LIBRARY?  X 

X ....MQVEA(T.CS) MOVER  (TCS)  .DRAWR.(TCS)  X 

X X 

Y X 

X X 

X SPECIAL?  X 

X X 

X 

X X 

X A P P I...  I.  C A T 1 0 N t (.  N A M El  / P r o s'  r a m ? S u b r o u t i n © •>  0 R F u n c t i a n ) 

X / ./ / /.._  ./...  X 

X .„/ /...  ../ ../ /....  X 

X X 

X DATA  FILES  ACCESSED?  X 

1 X 

X _ X 

X X 

YYYYYKYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYTYYYTYYTTY 
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i 


■ 


- 

' 

. 


* *:  * $ t * t * * * * * * He * * * * * H<  He  * He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  t He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  H<  He  He  He  He 


He  He 

He  S E A M P I...  A N S 0 F I W A F!’  FI  D 0 C U M E N T A T 1 0 N I . E U E L J - He 

H<  He 

He  R 0 II TINE  NAM E ♦ . TRD AUTHO R ♦ Lehman He 

He  He 

He  R E V I S 1 0 N C 0 D E J 1 ,..0 D A T E l 6/1/  7 9 He 

He  He 

He  | . 0 C A T T 0 N / A C C E S S P R 0 C E D 1 1 R E J &TED * f lie _ He 

He  He 

He  TYPE  t Y 

He  TX:i  PROGRAM  I"  3 SUBROUTINE  T 3 FUNCTION  % 

% % 

He  GENERAL.  DESCRIPTION:  He 

He  He 

He  Produces  three  dimensional  display  of  gridded  data  on  CRT  or  plotter.  He 

He 
He 
He 
He 
He 


He 

He 

He 

He 

He 

He 

He 

% 

% 

He 

% 

% 

% 

% 

% 

% 

% 


% 

% 

t 

He 

He 


accessed  by 

DENRV 

i INK AGES  * 
None 


EXTERNA!...  REFERENCES 


E T F , F I i.  E M A N A G F R , |.  J B R A R Y 


SPECIAL 


He 

.ICS. 

DSP 

SWAP. 

He 

H 

He 

A PEI.  I CAT  ION  1 

< N A M E / P r o r 3 

m ? S u b r 0 1. 1 1 i 

n e ? 0 R F 1. ! n c t i 0 n ) 

H 

SXUP  3 / P 

PLT3D.../.S 

..  ..FILER /S 

PRAM  R / S 

/ ... 

He 

_ /„. 

/..., 

/... 

/ 

/.. 

He 

/ 

/ 

/ 

/ 

r 

/ ... 

:H 

.../... 

/ 

He 

/.. 

/... 

/ 



/ 

DATA  FILES 

GRID.. 


ACCESSED 


t 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

He 

H 


He  He  He  He  He  He  H He  He  $ He  He  He  He  He  He  He  H:  He  He  He  He  He  He  He  He  1 H< 1 He  t % % % He  He  :H  He  He  He  He  * He  He  H:  1 1 He  He  He  He  He  He  % % % t He  1 1 % % * He  H:  He  He  He  He 
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*r  34  34  34  34  34  34  34  34  34  & & *r  54  34  34  34 


t * * ********  * * * * * * # * * * * * * *** * ********  * **************  * * * * * * * t * % * * * ***** 

* ' / % 

Z SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL  ? .—L  * 

* routine  name:„11p_c-- author:  _™i * 

* revision  code: — — - — date: — 1CL5111 — * 

* LOCATION  / ACCESS  PROCEDURE J ____±\LP_C£S. * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


PROGRAM 


0(3  SUBROUTINE 


C 3 FUNCTION 


* 

* type: 

* n 3 

* 

* general  description: 

* 

Originally  UPCASE,  this  routine  controls  update  and  display  of 

. the  dragline  simulation  case  parameters. 

* 

* 


* 

* 

* 

* ACCESSED  BYt 

£ _DATA 

* 

* linkages: 

* 

* 

* 

* 

* EXTERNAL  REFERENCES? 

* 

* RTE f FILE  MANAGER t 


library: 


-ERASEITCS}. 


SPECIAL? 


HOMEiJCSl 


JPOLU_(SYS)__ 


application: 



/.. 


( NAKE/Prodrsm  v 


Subroutine  ? 


OR 


Function ) 
/_ 




DATA  FILES  ACCESSED? 

Case  data  file 


* 

* 

* 

* 

t 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

t 

% 

* 


* 

* 

* 

* 

* 


* 

/..  * 

* 

* 
* 

* * 

* * * * * * **** * * * * * * * * t **** * * * * * * * * * * * * ***** * * * * * * * * * * * ******  * * * * * * * **** * 
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-x*  •:*  -x-  -x-  -X-  -x*  «•  *$•  -X'  -s* 


1 x * xxxxtxxx  x t txxxx  x x # 1 x txxx  x x 1 1 1 x ttt  % * x x 1 1 x * x x xxxxxx  z x % x x x 1 xxxx  x x x x 1 x 

Z SEAMPLAN  SOFTWARE  DOCUMENTATION  LEVEL  * 

* ROUTINE  NAME:_JiPf“ AUTHORS.*™  * 

t REVISION  CODE: — BATE % ZZl5./Z2_~. _ X 

X LOCATION  / ACCESS  PROCEDURE  ! ^PCAS___ * 


Q(3  SUBROUTINE 


Z 3 FUNCTION 


* 

x type: 

X n 3 PROGRAM 
X 

* GENERAL  DESCRIPTION! 

^ Originally  UPCASE,  this  routine  controls  update  and  display  of 

. the  dragline  simulation  case  parameters. 

X 

X 

X 

X 

X 

X 

X ACCESSED  BY! 

£ JDATA 

X 

x linkages: 

X 

X 

X 

X 

X EXTERNAL  REFERENCES l 
X 

X RTF f FILE  MANAGER ? LIBRARY l 

X e»ASEITC_SJL  HOMEiTCSj_„  SPOLU(SYS)  


special: 


t 

x 

t 

x 

X 

X 

X 

X 

X 

X 

X 

t 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

t 

X 

X 

X 

$ 

X 

X 

X 

X 

X 


application: 

/_ 

/.. 


(NAME/Prodrstn v Subroutine1?  OR  Function) 


/_  /_  /..  * 

& 
X 

X X 

X X X X X X X X X X X X t X X X t X t X X X X X X X X t XXX XX X * X xxxt X X X X X X XXXXXXXXXXXX X t X X X X XX XX X 


DATA  FILES  ACCESSED! 

Case  data  file 
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-*  x X-  x X-  X-  X -X-  X X -X-  X X -X-  -X-  X' 


% t * >K  # # & ft  $ jfc  * * ft  ft  ft ft  ft  ft  ft  ft  ftftftft  ft  ft  ftftftftftft  ft  ft ft ft  ftftftftftft  ft  ft  ft  ft ft ft ft 1 ft  ft  ft  ft  % ft  ft  ftftftftftftftft  % %%% 


level: fi 

author: Lehman.. 

DATE : 8J3J.11. 


* S E A M P LAN  SO F TUJA R E D 0 C U M E N T A T 1 0 N 
% 

ft  ROUTINE  NAHE:_.._U?DAX. 

ft 

ft  REVISION  code: 

ft 

ft  LOCATION  / ACCESS-  PROCEDURE: DATA... MIRY.. ALU. Ml LEW 

* 

ft  type: 

ft  r.  1 PROGRAM  rx:i  SUBROUTINE  C 3 FUNCTION 

ft 

ft  GENERAL  DESCRIPTION: 
ft 

ft  This  routine  reads  the  header  information  of  a continuous  data 

ft  file  (built  by  CONCN)  and  up  dates  the  minimum  and  maximum  elevations. 

* 

* 

& 

Jfe 

ft 

ft  ACCESSED  BY: 

ft  „.  .CONCN 

* 

* linkages: 

# file 

ft  ZMIN 

ft  ZMAX 

ft 

ft  EXTERNAL  REFERENCES: 

& 

ft  RTF?  FILE  MANAGER?  LIBRARY: 
ft  ...CLOSE  _(RTE)  „..WRI1T„(.RTE) 

ft  OPEN. CBIE)  

ft  ...READF  .I.RTE.)  __ 


ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

>:< 

ft 

ft 

ft 

ft 

ft 

ft 

* 

ft 

ft 

ft 

ft 

ft 

ft 

\V 

ft 

ft 

ft 

ft 

ft 

ft 


special: 


ft 




— 

— 



— 

- - 

* 

application: 

( NAME/ProsErsrfi  r 

Subroutine?  OR 

Function  > 

% 





/_ 



/... 

t 

/._ 

/_ 

/ .... 



... .. 



t 

/„ 

/_. 

/..  

/„. 

/.. 

X 

/.. 



„ . 

...  / 

/_ 

/.. 

& 

/„. 

/ „ 

/...  

/_. 

/... 

* 

ft 


DATA  FILES  ACCESSED t ft 


* 

* 


ft  ft  ft  ft ft  A'  ft  ft  ft  ft  ft  ft ft ft  ft  ft  ft  ft  ft  ft  ft  ft  ftftft  ft  ft  ft  ft  ft  ft ft  ft  ft  ft  ft  ft  ft  ftftftft  ft  ftftftft  ft  ft  ft ft  ft  ft  ftftftft  ft ft ft ft ft ft ft ft  X ft 1 A 
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3 

I 

i 

I 


I 

I 

1 

i 

I 

I 

I 


54  54  54  54  44  34  34  54  34  54  -54  -it  -54  -54  -54  -54  -54  -?-4  5.4  54  54  55  54  34  54  54  54  54  54  54  54  -34  54  54  54  54  54  y- 


x X X X X X X X X X X X * * X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X % X 


X 

X S E A M P I . A N S 0 F T W A R E .0  0 C 1. 1 M E N T A T 1 0 N I ..  E V F I...  J 

X 

X ROUTINE  NAME  J . UPDAT AUTHOR  : Conners 

X 

X REV  I S I ON  CODE  1 1.0 DATE  J 6/1/79 

# 

X LOCATION  / ACCESS  PROCEDURE  t &STMBV  and  &CSEDT  f ile 

X 

x type: 

* r.  9 program  r;x:i  subroutine  i:  :i  function 

x 

X 0 E N E R A I...  D F S C R I P T 1 0 N : 


X 

X 

X 

■v 
■\  • 

* 


Modifies  header  record  of  a grid  data  file. 


ACCESSED  BY  ! 

STMBV  CSEOT 


I.  I NKAGES  i 

Arguments  include  file  name  and  new  minimum  and  maximum  "Z"  values. 


F X T F R N A I...  R E F F R E N C E S ! 


R T F.  9 F 1 1...  E M A N A G E;.'  R , I.  I B R A R Y I 

FMP 


special: 


application: 

(NAME/P  rOST-y 

m ? S 1. 1 h t a i .1 1 i n e ? 

0 R F i i n e i- : 

i.  o ri ) 

/ 

/ 

/ 

/ 

/... 

/ 

/. 

/.. 



/... 

/ 

/... 

/ 

/ 

/..., 

/ 

./... 

/... 

/ 

/ 

/ 

BATA  FILES  ACCESSED! 

.GRID 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

Y 

X 

X 

X 

X 


Y:YYYY:YYYY:Y:yYYYYYYYY:YYYY:Y:Y:Y:YY:YYYYYYYYY:YY:YYYYYcYYYY:Y:YYYYY:YYYYYYYYYYY:Y:Y:YY 
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54  54  54  34  54  54  54  54  54  54  54  54  54  54  54  34  54  54  54  54  54  34  54  54  54  54  54 


s 

! 

i 

S 


I 

i 


$ 

i SEAMPLAN  SOFTWARE  DOCUMENTATION 

3^  TJPFT  C 

X ROUTINE  NAME? - — - — 

* 

* REVISION  code: 

$ 

* LOCATION  / ACCESS  PROCEDURE: 


&UPFLG 


LEVEL : _i 

author: Ji®. 

PATE : .._  ® Z 25_/7 9_ 


* 

jjj  jypp  ♦ 

* r.' 1 PROGRAM  rja  SUBROUTINE  c d FUNCTION 

t 

* GENERAL  DESCRIPTION: 

38c 

3jc  UPFLG  controls  the  manipulation  (updating)  of  the  dragline 

X simulation  flags.  These  flags  control  the  diagnostic  output 

35c  the  programs. 

X 

3*C 

* 

3fC 

35C  ACCESSED  BY: 

* 

* linkages: 

35c 

X 

* 

35c 

X EXTERNAL  REFERENCES: 

* 


for 


* 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

* 

X 

X 

X 

X 

X 

X 

3{C 


* RTE*  FILE  MANAGER*  LIBRARY:  * 

35c  -ERASECxCS) — EOM&(3:GS-) _SPOJJJ_(SYS)_  % 

X _ „ X 

X X 

X X 

X SPECIAL:  35c 

35c  X 

X X 

X X 

X APPLICATION:  (NAME/Program*  Subroutine*  OR  Function)  X 

X X 

35c  DATA  FILES  ACCFSSED:  * 

# flag  data  file X 

X t 

33C  X 


xxxxxxxxxxxxxxxxxxxtxxxxxtxxtxtxxxtxxxxtxxxxttxxxxxttxxtxxxxxxtxxttxx 
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X X X X X X X -X-  X X-  X-  X-  X*  X-  X 


& $ $ & $ t z z * 1 z z z z 1 z z zzzzzzzzzz * z z z 1 1 z zzzz Z Z 1 1 1 Z Z Z Z Z % Z 


& 


t SF.AMPLAN  SOFTWARE  DOCUMENT  AXIOM 

*’  UPSET 

# ROUTINE  NAME? — — — 

t 

% REVISION  code: — 

$ 

% LOCATION  / ACCESS  PROCEDURE: 


&UPSET 


LEVEL  S 


AUTHOR 


date:.. 


t z % t % z z z t % z 1 1 Z z z 1 z t 


« Elm 

<t  — * — — 

_ 8/25/79 


* 

z type: 

* r.  1 PROGRAM  n X3  SUBROUTINE  E 3 FUNCTION 

% 

Z GENERAL  DESCRIPTION? 

Z 

* The  main  routine  for  controlling  input  and  update  of  the  mine 

$ and  dragline  parameters,  or  the  parameter  data  activity  in  the 

% dragline  simulator. 

* 

* 

Z 

£ ACCESSED  BY? 

£ _DATA 


Z 

z linkages: 
z 


z 

z 

% 

% 

% 

t 

% 

§ 

t 

z 


EXTERNAL  REFERENCES? 

RTE ? FILE  MANAGER » LIBRARY? 
ERASE  £LCS)__  JIQMEXica)— . 


SPECIAL? 


APPL ICA t ION?  ( NAME/P tob rsrn ? Subroutine?  OR  Function) 

.DSPAC/L  _„_nsm)_/s.  PJBEED.„/S.  __ /_  ....... /.. 


DATA  FILES  ACCESSED? 

•Parg_meJ;££,  ta  file 


t 


% $ Z % % 1 Z & Z 1 Z Z Z % % % t Z % t ZZZZ  % % t % Z Z Z 1 Z % 1 1 Z Z Z Z Z Z Z Z Z Z Z Z Z-  Z Z 1 Z Z Z Z >!<  v Z Z Z Z Z Z Z 
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X X X X X X X X X X X X X X X X X X X X-  X X X X X X X X X X X X X X X X X X X X X X X 44  X X X X 


i 

1 


t X X X * X X X X X % X X X X X X X X X X X X X X * X % X X X X X X X X X X X X X X X X X X X X X X X X ■!•  X X X X X *:  1 X X X X -1 X X X X 

% % 

X S 1':'  A M F‘  I...  A N S 0 F T W A R E D 0 C LJ  M E N T A T 1 0 N !. . E V E I... ; 3 % 

X . % 

X ROUTINE  NAME  t USER AUTHOR  i. Elm... * 

t X 

x revision  code: date: ..7/30/79..- * 

X * 

X LOCATION  / ACCESS  PROCEDURE  I &USER X 


r: x :j  subroutine 


r :i  function 


NX,  MIC,NC;  Model  selection  play  and  optimization  (Flexiable  Parameters) 


special: 


APPLICAT I ON: 

/_ 

/._. 

/ 


% 
X 
X 
% 
X 
X 
X 
X 
X 
X 
X 
* 
X 

-Jr- 
J’l'* 

X 
X 
X 
X 
X 
X 
X. 

X 
X 
X 

X 

. * 

* 

X 

X 

_ X 

X 

X 

( N A H E / P r o a r a ra  ? S u b r o u t i n e y 0 R i::'  u n c t i o n ) X 

/_.  /_.  /_.  /..  X 

X 


X 

* type: 

* c :j  program 

X 6 E N E R A I...  D E S C R I P T 1 0 N J 
X 

X USER  interrogates  tje  user  for  design  information  regarding  a dragline 

X 

X stripping  design.  Bits  are  set  in  IMDL  to  indicate  mining  method  use. 

X 

X 

X 

X 

X ACCESSED  by: 

* 

X LINKAGES:  COMMON  - Tektronix, MODI, MOD 2 blocks,  Arguments  - IMOD, 

4/ 

X 
X 

X variables. 

X E X T E R N A !...  R E F E R E N C E S l 
X 

X R T E J F 1 1...  E n A N A G E R y I. . I B R A R Y i 

X ..JCHSLZCTCS).  

X 

X 

* 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 


X DATA  FILES  ACCESSED: 

* 

* 

* 


* 

X 

X 

X 
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X X X 


* * X X * * X * * X X X #*##*#####  X X * * X X X X X X * X X X X X X X X X X X X X X X 4-:  X X >}  f (•  : XXX'X 

X X 

X SEAM  PI  AM  snr  TMApr  DOCUMENTATION  I..FUFI  % 3 

t 

* R 0 LJ  T I N E N A M E \ VERB ;. A U T !•  1 0 R 5 Elm 

X 

Jfc  R E M I S 1 0 N C 0 n E X - D A T E X .7/3 0 / 79 _ 

I...  0 C A T 1 0 N / A C C E S S P R 0 C E 0 U R E X &V ER  B _ ... 


fX  :i  SUBROUTINE 


c:  :i  FUNCTION 


and  coal  seam  (cross  section)  on  casting  diagrams. 


DRWPL 


DIAGR  block  (other  for  position) 


* type; 

* r :i  PROGRAM 
>f< 

X GENERA I DESCRIPTION; 

* 

# VERB  output  character  strings  which  identify  the  spoil  pile  (plan  view) 

* 

X 
X 
X 
X 
X 

X ACCESSED  BY 

* DRWXS 

* 

* I INK ACES; 

X 

x COMMON 

X 
X 

X E X T E R M A I...  P E F E R E N C E S ■ 

X 

X RTF  » FI  I E MANAGER  ? LIBRARY; 

X .ANMOD(TCS) CHSIZ.(TCS)  DRWP.L.(TCS) 

X 

X 
X 

* 

X 
X 
X 
X 
X 
X 
X 
X 
* 

* DATA  FILES  ACCESSED; 

% : 

X-  ....  _ 

* . 


GETL.V  (DSP)  MOVEA(ICS) 


SPEC  I A! 


A PPL I CAT I ON 

./ .... 

/.... 



/.... 


( N A M E / P r o b r s m ? S u b r o u t i i"i  e?  y 0 R E u n c t i o n ) 

/ / /.... 

/....  .........A., /... 


X 

X 

X 

X 

X 


X 

./....  X 

X 

X 
X 

vL- 

•('• 

X 

X 
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f*  ¥:  X X X X X X X X -X-  X X-  X X X X X X X X X X X X X X X X X X X 


*•.,■  • * 


« SEAMPLAN  SOFTWARE  DOCUMENTATION 

* WDAT 

* ROUTINE  NAME  J — _. — . — _. — — 

% 

X REVISION  code: _„_ 

* 


LEVEL l _„ * 

X 

AUTHOR  ? -^"L- ._ # 

date: l^lll t 

X 


X LOCATION  / ACCESS  PROCEDURE: -IRHZi % 


X 

x type: 

* r.  3 PROGRAM 
X 

X GENERAL  DESCRIPTION: 


rxU  SUBROUTINE 


C 3 FUNCTION 


Dummy  routine  substituted  for  McDonnell  Douglas 


* 

* 

X 

X 

* 

X 

* 

X ACCESSED  BY: 

$ MOVE_ 

X 

x linkages: 

* 

X 

X 

X 

* EXTERNAL  REFERENCES: 

* 

X RTF?  FILE  MANAGER  * LIBRARY 

X „ ... 

& 

3|C 

X 
X 
X 
t 


special: 


■APPLICATION: 


(MAME/Prosirsfri*  Subroutine?  OR  Function) 


& 

X 

X 

X 

X 

X 

X 


X 

X 

X 

X 

X 

X 

X 

X 

t 

X 

X 

X 

He 

X 

X 

X 

X 

X 

X 

X 

X 

t 

X 

X 


X 

/ 

... 

___. 

/ 

..  „ _ /_.  He 

X 

/„ 

__./._ 

. /_ 

/_ 

_/_  ^ 

X 

X 

- - — 



„ /„ 

/ 

&-  -X 

i ; 

'x  N 
1 
1 
1 
1 

X 

_____ 

He 

X X 

X DATA  FILES  ACCESSED 5 X 

X X 

X X X X X X X H'  X X X He  He  He  He  X X X X XXXXXX  X X X He  He  X X He  X XXXXXXXX  X X X X He  He  He  X X X He  X X X He  He  He  He  X He  He  X X X He  X X 
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1 1 # * t % * * * 1 1 * % t * % * * * 1 1 1 1 1 * t * X txt*  t 1 1 X 1 1 * 1 1 X >K  % % % % * X t X % t * X * X % X * 1 1 * %%%*  & * 

& , % 
t SEAMPLAN  SOFTWARE  DOCUMENT  AT JON 
V T 

* ROUTINE  NAMEJ-J^i1!^-- 

& 

* REVISION  CODE t _______ 

% % 

* LOCATION  / ACCESS  PROCEDURE J £™P*L * 


LEVEL  l _~.i_.__ — „ — t. 

% 

AUTHOR  * 

DATE: 8/25/79 # 


DC  3 SUBROUTINE 


C 3 FUNCTION 


* 

* type: 

* f*.  3 PROGRAM 

* 

* GENERAL  DESCRIPTION: 

# 

& Displays  parameter  data  identification  header  above  the  parameter 

& data  column  as  part  of  the  update  activity. 

* 

* 

* 

% 

# 

& ACCESSED  BY: 

* 

* linkages: 

* 

* 

* 


* 

t 

% 

* 

* 

* 

* 

% 

% 

* 

% 

* 

* 

t 

* 

* 

* 

% 


% EXTERNAL  REFERENCES: 


t RTE p FILE  MANAGER?  LIBRARY: 

* 

* special: 


& 

* 

* 

t 

t 

% 

# 

t 


t „ _ x 

t & 

X<  APPLICATION*  < NAME/P  rod  ram  ? Subroutine?  OR  Function)  & 

t 


DATA  FILES  ACCESSED: 

JALSj., asaigDmejiLs_,i£ary 


& 

£ 

& 

* 


$ $ 1 1 % % % % % t *&*%  % £ t t & t t & & t t & 1 1 1 1 1 1 X 1 1 & 1 1 X 1 1 1 % t X & t X & * t- 1 t % t % t & t & X * t X X 
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1 


■ 


X X X X X X X * X X X X X X X X XXX  X XXXX  & X £ # * X X XXXX  X X X X 1 X % 1 1 1 X & t X t X X X X X X 1 X X X X X X XX 


X X 

X SF. AMP I. AN  SOFTWARE!  DOCUMENTATION  LEVEL?  — * 

X X 


X ROUTINE  NAMEJ  — XL™. AUTHOR  X .J^.J^rson 

$ 

% revision  code: . date: 1119. 

$ 

& LOCATION  / ACCESS  P R 0 C F.'  D U R E : ...  ..DATA  _ENT  RY  _AND  _ REV_I  EW 

* 

% type: 

# r :j  program  rxi  subroutine:  r.  n function 

* 

X GENERAL  DESCRIPTION: 

X 

& This  subroutine  DRAWS  the  critical  level  line  on  the  graph  for  test 

X hole  correlations  for  core  hole  data. 

* 

X 

X 




X 

X 

X 

X 

X 

X 

X 

X 

s9s 

** 

X 

X 


X 

t 

X 


X 

X 

X ACCESSED  BY: 
x .GRFF 


X 

X 

X 

X 


X & 

* linkages:  * 


x 

x 


RFIAG,  CNT,  ICT,  ZZ,  ZZN,  IUSER,  IFIRST 


* 

* 


X 

X 

x external  references: 

& 

X RTF?  FILE  MANAGER ? LIBRARY  t 

X ._AmOD.Cl.C  S.) M9VEA.(TCSJ_ 

* _J)AS.hAaC.SJ MOVRLITCSJL 

X _DJiWBL  LT-CSJ  _ 

X 

x special: 


X 

X 


X 


# 


X 

X 


* 


x 


* 

X 

X 

X 

5f; 

X 

X 

X 

X 

X 


X 

£ 

£ 


application: 

( NAME/P  ros*  ram  y 

Sub routiner 

OR  Function) 

X 

/_ 

/._  

/_. 

/_ 

_ 

/„. 

X 

/_. 

/_  

„ / 

./-. 

^ „ 

/„ 

& 



/_.  



/... 

/... 

X 

/... 



/.. 

/_. 

....  .. 

/... 

$ 

/... 

— /- 

7 



— 

/_ 

vM 

k 

\V 

DATA  FILES  ACCESSED: 

tv- 

X 

£ 

X 

* 
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■ 


■ 


- 


' 


< 


ts 


. 

•• 


. 


' 


. 


----- 


■ 




XXttttXXttXtttX  * t tttXttttXXtXXXXt  t & ttt  % 1 1 1 * t X t ttXt  1 1 1 X 1 1 Zi'ttt  % % & % X % % t 

t x 

* SF.AMPl.AN  SOFTWARE  DOCUMENTATION  LEVEL: 1 _ # 

* ROUTINE  NAME: 

* 

* revision  code: 


XSEC 


AUTHOR : _ J^.MES.on 
DATE  : 5£79 


# LOCATION  / ACCESS  PROCEDURE  : _.PAT.A  .ENTRY  .ANDJIEVJEW 

5ft 

5ft  type: 

# f.:X  3 PROGRAM  C 3 SUBROUTINE  l 3 FUNCTION 


5ft  GENERAL  DESCRIPTION: 

X 

% Builds  XYZ  file  from  binary  keyed  files:  Allows  user  to  select 

# specific  test  holes  to  be  analyzed  by  making  cross  section  cuts. 

% 

5ft 

% 

£ 


* ACCESSED  BY: 


Run  XSEC 


# linkages: 

3ft 

£ ITEK,  COMMON  BLOCK 

t 

% 

% E X T E R N A f...  R E F E R ENCES  J 

>ft 


# 

# 

X 

X 

X 

>K 

5ft 

I& 

JfC 

X 

X 

X 

3ft 

3ft 

# 

t 

</ 


3ft 

RTE ? FILE  MANAGER 9 LIBRARY 

< 

4 

)>t 

* 

ANMOD(TCS) 

..DRWAB..(TCS)„ 

INITT(TCS) 

SPOLU (SYS)  VWNDO(TCS) 

jfi 

t 

_CjHSIZ._CTQSl 

„ERASEXTC.SJ_ 

...  MQVA.BXTCS1. 

..„SWNDQX.TCSI  

X 

X 

jlrawa„(tcsi 

...EXEC. (RTE) 

...MQY.EAX.TCSI 

_..VCRSR(TCS).  

3ft 

* 

SPECIAL: Make 

sure  first  words 

of  Common  are 

COMMON  TRECL , KEYL , 

A* 

X 

t 

3ft 

M.EY, 

NBL.Q.K.,  IBLOKL  , IUS.ER 



!ft 

3ft 

t 

application: 

< NAHE'./P  r os*  ran?  Subroutine?  OR  Function) 

5ft 

3ft 

X 

.RTRVL /P 

/_ 

/._ 

, /_.  /„. 

3ft 

X 

/_. 

/„ 

/„ 

/.._  /_. 

$ 

X 

/„ 

/_. 



. /„  /_. 

& 

* 



/_ 

/... 

/._  /.. 

X 

X 

/. 

/ 

/ 

/ /__ 

X 

# DATA  FILES  ACCESSED: 


3ft 

3fC  1 3ft  t X JfC  3ft  X t X % % % % % % % X % % %%%%  % % 3ft  % % % % % % % 3ft  % % % 3ft  1 1 1 % X 3ft  3ft  1 3ft  3ft 1 1 XXXtXttXXX  X 3ft  3ft  t 


179 


ft ft  X X X ft  X ft  ft  ft  ft  X X X t ft  X X ft  ft  ft  X ft  ft  X ft  X X ft  ft  X X X X ft ft X ft X % ft  X X X ft  X X X X 1 1 X X X X X X X X ft  X X X X X X X X X 


X X 

x S F A M p I . A N S n F T U.I  A R F D 0 r.  1 1 M F N T A T T 0 N I . F V F L J * 

X x 
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APPENDIX  C 


(MON  BLOCK  VARIABLE  DEFINITIONS 

PITDN  Module  COMMON  Blocks 


In  the  PIT  N Module,  several  COMMON  blocks  are  used.  While  these 
blocks  are  not  in  the  MSU  RTE  III  implementation  "LABELED",  the  rela- 
tive independence  of  program  modules  allows  selection  of  particular 
BLANK  COMMON  for  individual  programs.  Hence,  pseudo  labels  have  been 
attached  to  each  such  block,  and  in  converting  to  other  systems,  these 
blocks  would,  in  fact,  be  made  LABELED  COMMON  blocks.  Table  1 summarizes 
the  blocks  and  their  use.  Sizes  will  vary  with  machine 


Table  1.  — COMMON  Blocks  and  Their  Use 


PSEUDO 

NAME 

SIZE 

(16  BIT  WORDS) 

USE 

ITEK 

45 

Tektronix  (TCS)  graphics  routine 
communication 

Ml  COM 

234 

1 and  2 pass  dragline  model  vari- 
able area 

M2  COM 

41 

2 pass  (M0D2)  variable  area 

FDIAGM 

112 

DIABR  (costing  diagram  generation) 
COMMON  area 

IDPCM1 

156 

Dynamic  programming  multipit 
variable  block 

IDPCM2 

Ml COM  COMMON  Block 

The  M1C0M  is  used  for  communication  between  the  dragline  module  and 
other  PITDN  module  routines,  including  the  casting  diagram  generation 
programs.  Although  some  variable  usage  is  different  in  the  MODI  and  M0D2 
routines,  for  themost  part  they  are  the  same.  Individual  variables  and 
their  use  are  defined  on  the  following  pages.  Some  usage  differs  slight- 
ly in  M0D2 , and  slightly  different  names  are  used  in  the  DIAGR  segment  in 
some  cases.  Where  usage  is  different  it  has  been  noted  with  most  differ- 
ences in  X vector! 
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CSEDT  COMMON  BLOCK 


GRINT 

grid  interval  for  a grid  file 

IADJC  - 

adjustment  factor  to  correlate  columns  of  different  file 

IADJR  - 

adjustment  factor  to  correlate  rows  of  different  files 

ID I RED  - 

indicates  direction  1 - rows,  2 - columns 

IHX  - 

contains  the  X coordinate  of  the  cross-hair  cursor  position 

IHY  - 

contains  the  Y coordinate  of  the  cross-hair  cursor  position 

IMAX  - 

maximum  possible  integer;  on  this  machine  IMAX  - 32767. 
Used  as  a null  indicator. 

IN  - 

array  holding  source  file  logical  unit  numbers 

INFIL1 
INFIL2  - 
INFIL3 

source  file  names 

IROW  - 

row  or  column  number  of  the  currently  displayed  cross-section 

ITEK  - 

holds  Tektronix  Plot  - 10  graphics  variables  values 

JEND  - 

indicates  the  position  of  the  last  dat  point  in  a row 

FOBNAM  - 

file  header  name 

JSTART  - 

indicates  the  position  of  the  first  data  point  in  a row 

M - 

scale  values  for  calculating  integer  values 

MATZ  - 

matrix  holding  the  integer  grid  data  values 

NCOLS  - 

number  of  columns  in  a file 

NCOLSW  - 

number  of  columns  used  for  windowing 

NFILES  - 

the  number  of  files  to  be  displayed  simultaneously 

NROWSW  - 

number  of  rows  used  for  windowing 

OTFILl 
OTFIL2  - 
OTFIL3 

destination  file  names 

RMAX  - 

maximum  possible  real  number,  used  as  a null  indicator; 
RMAX  = 1.E36 

ROW  - 

holds  the  data  values  of  the  currently  displayed  cross- 
sections 

XAMAX  - 

maximum  value  for  the  scale  on  the  display  X-axis 

XAMIN  - 

minimum  value  for  the  scale  on  the  display  X-axis 

XMAX  - 

maximum  X value  in  a grid  file 

XMAXW  - 

maximum  X value  for  windowing  (may  be  maximum  of  several  XMAXs) 

XMIN  - 

minimum  X value  in  a grid  file 

XMINW  - 

minimum  X value  for  windowing  (may  be  minimum  of  several  XMINs) 
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YMAX  - 
YMAXW  - 
YMIN  - 
YMINW  - 
ZMAX  - 
ZMAX1  - 
AMIN  - 
AMIN1  - 
ZMINW  - 


maximum  Y value  in  a grid  file 

maximum  Y value  for  windowing  (may  be  maximum  of  several  YMAXs) 
minimum  Y value  in  a grid  file 

minimum  Y value  for  windowing  (may  be  minimum  of  several  YMINs) 

maximum  Z value  in  a grid  file 

maximum  Z value  after  editing 

minimum  Z value  in  a grid  file 

minimum  Z value  after  editing 

minimum  Z value  for  windowing 
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CS3DD  COMMON  BLOCK 


ADDX  - 

addition  factor  to  move  the  cross-section  horizontally  on 
the  screen 

ADDY  - 

addition  factor  to  move  the  cross-section  vertically  on  the 
screen 

EDGE  - 

value  at  left  or  right  edge  of  the  screen  used  to  determine 
ADDX 

GRID  - 

contains  the  grid  file  data 

GRINT  - 

grid  interval 

ICOL  - 

number  of  columns  at  a corner  of  the  display 

IDIR  - 

direction  of  the  cross-sections  1 - row,  2 - column 

ISTRT  - 

indicates  the  first  cross-section  to  be  drawn 

IVXYZ  - 

option  selector  used  in  PLT3D 

JOBNAM  - 

file  header  name 

MASK  - 

necessary  for  PLT3D,  but  only  used  in  programs  which  allow 
hidden  line  removal 

MSTRT  - 

maximum  possible  starting  cross-section 

NAMFIL  - 

source  grid  file  name 

NLINE  - 

indicates  the  cross-section,  out  of  all  those  included  in  one 
display,  which  is  currently  being  displayed 

NPNTS  - 

number  of  points  to  be  plotted  for  a cross-section 

NUMRC  - 

number  of  cross-sections  to  be  displayed 

OUTBUF  - 

buffer  holding  the  data  points  of  the  cross-section  to  be 
displayed 

PHI  - 

angle  of  rotation  about  the  Y axis 

STEP  - 

sine  THETA*  cosine  PHI 

STSP  - 

sine  THETA  * sine  PHI 

THETA  - 

angle  of  rotation  about  the  X axis 

VERTEX  - 

saves  vertices  of  the  cross-sections  for  use  in  framing 

XMAX  - 

maximum  X value  in  a grid  file 

XMIN  - 

minimum  X value  in  a grid  file 

XSCALE  - 

scaling  factor  used  along  the  X axis  of  the  display 

YMAX  - 

maximum  Y value  in  a grid  file 

YMIN  - 

minimum  Y value  in  a grid  file 

YSCALE  - 

scaling  factor  used  along  the  Y axis  of  the  display 

ZMAX  - 

maximum  Z value  in  a grid  file 

ZMIN  - 

minimum  Z value  in  a grid  file 

ZSCALE  - 

scaling  factor  used  along  the  Z axis  of  the  display 
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GRDIN  COMMON  BLOCK  (Types  are  implicit) 


IPRM  (5)  - Integer  array  equivalenced  as  follows: 

IPRM(l) : ISTRK  - track  allocated  to  pass  COMMON  block 
IPRM(2) : ISECT  - starting  sector  of  track 
IPRM(3):  ICODE  - operation  code 
IPRM(4) : LENGTH  - length  of  COMMON  block 
IPRM(5):  IER  - error  flag 

GRID  (50,50)  - Real  matrix  of  Z values  read  in  from  grid  file 

MINX  - minimum  X index 

MAXX  - maximum  X index 

MINY  - minimum  Y index 

MAXY  - maximum  Y index 

JOBNAM  (10)  - 20  character  ASCII  file  identifier 

XMIN  - minimum  X grid  coordinate 

YMIN  - minimum  Y grid  coordinate 

XMAX  - maximum  X grid  coordinate 

YMAX  - maximum  Y grid  coordinate 

ZMIN  - minimum  Z value 

ZMAX  - maximum  Z value 

NROWS  - number  of  rows  in  the  grid 

NCOLS  - number  of  columns  in  the  grid 

GRINT  - grid  interval;  grid  cell  size 


NAMFIL  (3)  - 6 character  ASCII  grid  file  name 


CNTUR  COMMON  BLOCK 


ICON 

record  continuation  flag 

ICT 

record  type 

IELEV 

elevation  of  the  contour 

ICPTS 

number  of  X,  Y geographical  coordinates  in  the  record 

XBUF  buffer  for  X geographical  coordinates  in  the  record 


YBUF 

buffer  for  Y geographical  coordinates  in  the  record 

JOBNAM 

identification  for  the  file 

XMIN,  YMIN  geographical  coordinates  for  the  map  origin 
XMAX,  YMAX  maximum  geographical  coordinates  of  the  map 


ZMIN 

the  minimum  contour  elevation 

ZMAX 

the  maximum  contour  elevation 

INTRVL 

the  constant  interval  between  contours 

GRINT 

the  grid  interval  at  which  the  map  is  drawn 

IOFILE 

the  file  name 

MLRS/RCLAM  COMMON  Block  (CSSE  Block) 


ABSDC : 
ACRESC: 
CESC: 
CDCNC : 
CDCPR: 
CDPAC : 
CDPBC : 
CDPHYC : 

CRVC : 

DCYHC: 

DDMFC: 

DMNDFC: 

DMXDFC: 

ECDOC : 
FPWC : 
FRC: 
HBTC: 
PWFC : 
MRFLGC: 
SRAYC : 
SRCYYC: 
SRMCYC: 
SRMYYC : 
SRNDC: 
SROAOC : 
SROPNC : 
SROWNC : 
SSC: 
SRYAC: 
SRYARC: 


Expected  angle  of  the  spoil  bank  (degrees) 

Total  acres  on  the  property 

Cost  to  excavate  spoil  (cents/cu.  yd.) 

Estimated  hourly  operating  cost  for  the  bulldozer  ($/hour) 
Estimated  hourly  ownership  cost  of  the  bulldozer  ($/hour) 

Dozer  production  coefficient  A 
Dozer  production  coefficient  B 

Number  of  productive  hours/year  the  bulldozer  is  expected  to 
work 

Cost  for  planting  ($/acre) 

Minimum  dozer  production  possible,  from  dozer  production  curve 

Distance  spoil  material  is  bulldozed  by  each  pass  of  the  bull- 
dozer (feet) 

Minimum  distance  for  which  the  bulldozer  production  curve  holds 
true  (feet) 

Maximum  distance  for  which  the  bulldozer  production  curve  holds 
true  (feet) 

Expected  efficiency  of  the  bulldozer  operator  (fraction) 

Fraction  of  the  panel  width  the  bulldozed  material  is  to  be  moved 
Fraction  of  material  on  spoil  that  has  to  be  rehandled  by  dozer 
Height  of  the  topsoil  (feet) 

Width  of  the  working  panel  (feet 
Flag  set  to  reclamation  level 
Acres/year  requiring  grading  by  the  dozers 
Dozer  production  per  year  (cu.  yd/year) 

Dozer  production  per  year  (m.  cu.  yd/year) 

Number  of  cubic  years/year  to  be  regraded  by  the  dozers 
Number  of  dozers  required  (integer) 

Owner  and  operating  cost  for  the  dozers  ($) 

Operating  cost  for  the  dozers  ($) 

Ownership  cost  for  the  dozers  ($) 

Slope  of  the  spoils  (degrees) 

Number  of  cubic  yards/acre  of  material  to  be  regraded 

Number  of  cubic  yeards/acre  of  material  to  be  regarded,  includ- 
ing material  which  requires  rehandle 
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TMYC: 

Number  of  years  it  takes  to  completely  mine  the  given  property 

TRDYIC: 

Cost/cu.  yard  for  removing  topsoil  ($/cu.yd) 

TSDYEC:  Cost/cu.  yard  for  respreading  topsoil  ($/cu.yd) 
ARRAY  (Integer):  contains  parameters  for  COMMON  transfer 
ARRAY(l)  = IT  : starting  track  number 


ARRAY (2) 

= ID  : disc  LU 

ARRAY (3) 

= IS  : starting  sector  number 

ARRAY (4) 

= LCE  : length  of  COMMON  transfer 

COMMON  VARIABLE  NAMES  IN  ALPHABETICAL  ORDER 


Name 

Use 

KBAUDR 

General 

KBEAMX 

Direct  1 

Graphics 

KB  E AMY 

Direct  i 

Graphics 

KDASHT 

Virtual 

Graphics 

KERROR 

General 

KG  RAF  L 

General 

KHOMEY 

General 

KHORSZ 

A/N 

KKMODE 

General 

KLMRGN 

A/N 

KMAXSX 

Virtual 

Graphics 

KMAXSY 

Virtual 

Graphics 

KMINSX 

Virtual  Graphics 

KMINSY 

Virtual 

Graphics 

KMOVEF 

Direct  ( 

Graphics 

KPCHAR 

Direct  ( 

Graphics 

KRMRGN 

A/N 

KSIZEF 

A/N 

KTABLT 

Tablet 

KVERSZ 

A/N 

TIMAGX 

Virtual 

Graphics 

TIMAGY 

Virtual 

Graphics 

TMAXVX 

Virtual 

Graphics 

TMAXVY 

Virtual 

Graphics 

TMINVX 

Virtual 

Graphics 

TMINVY 

Virtual 

Graphics 

TRCOSF 

Virtual 

Graphics 

TREALX 

Virtual 

Graphics 

TREALY 

Virtual 

Graphics 

TRSCAL 

Virtual 

Graphics 

TRSINF 

Virtual 

Graphics 

Description 

Terminal  Logical  Unit 
Beam  X-Coordinate 
Beam  Y-Coordinate 
Dash  Specification 
General  Error  Flag 
Graphic  Level  F.lag 
Home  Y--Value 

Character  Horizontal  Size 
Mode 

Left  Margin 

Screen  Window  Maximum  X 
Screen  Window  Maximum  Y 
Screen  Window  Minimum  X 
Screen  Window  Minimum  Y 
Move  Flag 

Previous  Plot  Characters 
Right  Margin 
Size  Flag 

Tablet  Initialization  Mode 
Character  Vertical  Size 
Imaginary  Beam  X 
Imaginary  Beam  Y 
Virtual  Window  Maximum  X 
Virtual  Window  Maximum  Y 
Virtual  Window  Minimum  X 
Virtual  Window  Minimum  Y 
Relative  Vector  Cosine  Factor 
Real  Beam  X 
Real  Beam  Y 

Relative  Vector  Scale  Factor 
Relative  Vector  Sine  Factor 
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Pit  Layout  File  (//MINE) 

During  the  process  of  interactive  pit  layout,  the  //MINE  file  is 
accessed  and  modified.  Although  much  of  the  information  contained  in 
the  file  could  be  passed  through  COMMON  blocks,  the  file  is  used  to  allow 
for  production  analysis  of  an  area  previously  selected,  thus  allowing  the 
user  to  bypass  the  pit  layout  process  if  it  has  already  been  performed. 
Further,  portions  of  the  file  are  unused  in  the  current  version  of  the 
planning  system.  The  file  is  designed  to  accommodate  proposed  future 
enhancements,  such  as  the  ability  to  lay  out  multiple  segments. 

The  file  is  a direct  access  fixed  record  length  file.  For  this  rea- 
son, the  system  dependent  direct  access  routines  are  used.  The  format 
of  the  file  is  as  follows: 

Recor  1:  Header: 

Word  //  TYPE  (I  = Integer,  F = floating  point,  A = alphanumeric) 

1 I Design  mode  (1  - area  averages,  2 - point  value,  3 - maximum 

stripping  ratio  ^ 

2 not  used 

3-4  F overburden  depth 
5-6  F Coal  seam  thickness 
7-8  F Length  of  plan 
9-10  F Width  of  plan 
11-12  F Leading  edge 
13-14  F Design  range 
15-16  F Total  area 

17-18  F Total  cubic  yards  of  overburden 
19-20  F Total  tons  coal 

21  I Number  of  segments  laid  cut  (always  = 1 in  current  version) 

22  I Number  of  overburden  and  coal  values 

23  I Number  of  pit  widths  (-1  if  only  one  value,  all  are  same) 

24  - 33  not  used 

34  I Selected  map  index 

35  I Current  minimum  X index 

36  I Current  maximum  X index 
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37  I Current  minimum  Y index 

38  I Current  maximum  Y index 

39  - 40  F Current  contour  interval 
41-43  A Topography  grid  file  name 
44-46  A Topography  contour  file  name 
47-49  A Overburden  Isopach  grid  file  name 

50  - 52  A Overburden  Isopach  contour  file  name 
53-55  A Coal  Isopach  grid  file  name 
56-58  A Coal  Isopach  Contour  file  name 
59-61  A Stripping  Ratio  Grid  file  name 
62-64  A Stripping  Ratio  Contour  file  name 
65  - 128  Not  used 


Record  2:  Pit  Segment  Corners 

1 - 128  F Up  to  8 sets  of  (X,Y)  corner  coordinates  for  each  segment 
(current  version  allows  1 set:  16  words  used). 

Record  3,  4:  Overburden  Depth  Values 


1 - 128  F Up  to  64  overburden  depth  values  per  record  at  50' 
intervals  across  the  width  of  the  mine  area. 


Record  5,  6:  Coal  Seam  Thickness  Values 


1 - 128  F Up  to  64  coal  seam  thickness  values  per  record  at  50' 
intervals  across  the  width  of  the  mine  area. 


Record  7,  8:  Pit  Widths 


1 - 128  F Up  to  64  pit  width  values  per  record  as  solved  for  by 
production  analysis  routines. 

Each  integer  variable  is  stored  as  a 16-bit  binary  integer  value. 
Floating  point  values  are  stored  in  binary  in  32-bit  double-words.  Each 
16-bit  word  can  contain  2 alphanumeric  characters 


ASCII  XYZ  Data  Files 

The  first  form  of  data  acceptable  for  input  to  the  system  is  of  the 
unformatted  X,  Y,  Z type.  The  first  record  of  this  type  of  a data  file 
contains  two  values:  the  number  of  Z-values  in  each  of  the  subsequent 

data  records  and  the  number  of  data  records  which  follow.  The  data  re- 
cords which  follow  contain  an  X value,  a Y value,  followed  by  up  to  5 
Z values.  All  data  in  the  file  is  ASCII  free  formatted  data,  that  is, 
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the  values  are  entered  with  no  regard  to  column  positioning  and  are  se- 
parated by  commas.  Decimal  points  may  or  may  not  be  included,  as  appro- 
priate. Plus  signs  ("+")  are  optional  for  positive  values,  but  minus 
signs  are  required  for  negative  values.  These  ASCII  XYZ  data 

files  are  accessed  only  by  program  MAKFL. 


BINARY  XYZ  Data  Files 


As  the  data  records  in  ASCII  XYZ  data  files  is  read  by  program 
MAKFL,  it  is  converted  to  single  precision  floating  point  values  and 
sorted  on  ascending  X within  descending  Y prior  to  output  to  a Binary 
XYZ  data  file.  Thus  the  region  represented  by  the  binary  data  is  de- 
veloped from  north  to  south.  If  more  than  one  point  has  the  same  Y 
coordinate,  the  most  westerly  would  appear  first  in  the  file. 

The  format  of  the  file  is  almost  identical  to  the  format  of  STAMPEDE 
files.  The  header  record  constructed  by  program  MAKFL  is  formatted  as 
follows : 

Word  1:  File  type  - 1,  binary  integer 

Words  2-3:  Minimum  X coordinate,  binary  floating  point 

Words  4-5:  Minimum  Y coordinate,  binary  floating  point 

Words  6-7:  Maximum  X coordinate,  binary  floating  point 

Words  8-9:  Maximum  Y coordinates,  binary  floating  point 

Words  10  - 15:  Not  used 

Words  16  - 25:  20  characters  of  file  designation,  ASCII  text. 

The  data  records  in  the  file  each  contain  the  X,Y  and  up  to  5 Z 
values  in  binary  floating  point  representation.  The  length  of  these 
records  varies  from  6 words  if  there  is  only  1 Z value  to  14  words  if 
there  are  5 Z values.  These  records  can  be  considered  to  be  written 
by  the  FORTRAN  statement: 

WRITE(IO)  X,Y , (Z (I) , I = 1,  NZS) 

The  final  record  in  the  file  is  a double  word  containing  the  single 
value  1.E36  in  binary  floating  point  representation. 


GRID  FILES 


Grid  files  consist  of  three  types  of  records:  a header  record,  grid 

data  records,  and  a terminator  record.  The  header  record  contains  the 
following  information: 

Word  1:  File  type  = 2,  binary  integer 

Words  2-3:  Minimum  X coordinate,  binary  floating  point 
Words  4-5:  Minimum  Y coordinate,  binary  floating  point 


Words 

6 - 

7: 

Words 

8 - 

9: 

Words 

10 

- 11: 

Words 

12 

- 13: 

Words 

14 

- 15: 

Words 

16 

- 25: 

Maximum  X coordinate,  binary  floating  point 

Maximum  Y coordinate,  binary  floating  point 

Grid  interval  in  units  per  grid  square,  binary 
floating  point 

Minimum  Z value,  binary  floating  point 
Maximum  Z value,  binary  floating  point 
20  characters  of  file  description,  A2  format. 


Each  of  the  data  records  which  follow  represent  the  Z values  for  one 
row  of  a grid.  The  first  such  record  represents  the  row  with  the  great- 
est Y coordinate,  and  subsequent  records  represent  deriving  Y values. 

Values  in  the  record  represent  Z values  as  X varies  from  left  to  right,  or 
from  west  to  east.  Since  the  grid  may  not  be  square,  that  is,  no  Z values 
may  exist  at  the  extremities  of  the  rows  due  to  natural  boundaries  or  miss- 
ing data,  the  length  of  the  record  may  vary.  These  reocrds  can  be  consi- 
dered to  be  written  by  the  FORTRAN  statement: 

WRXTE(IP)  J START , JEND,  (Z(J),J  = JSTART,  JEND) 

Thus  the  data  records  are  represented  as  follows: 

Word  1:  Starting  column  in  the  row,  binary  integer 

Word  2:  Ending  column  in  the  row,  binary  integer 

Word  3 - N:  The  JEND-JSTART  + 1 Z values,  binary  floating  point 

The  maximum  number  of  Z values  for  any  row  is  50;  similarly,  50  is 
the  maximum  number  of  rows  in  any  file. 

The  last  record  in  the  file  has  both  JSTART  and  JEND  set  equal  to 
one,  and  the  single  Z value  is  1.E36.  For  further  information,  see  the 
STAMPEDE  reference  manual. 
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Definition  of  File  Types  for  Data  Entry  and  Review 
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Refer  to  Appendix  E for  detailed  descriptions  of  files. 


DAT AFL  T=00004  IS  QN  CR00G17  USING  00060  BI.KS  R=03f. 
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SOFTWARE  DOCUMENTATION 


NAME 


ALGL 


AUTHOR : 


date:_J5/1^. 


type: 

C 3 PROGRAM 
C 3 SUBROUTINE 
T 3 FUNCTION 


version: 

C 3 ORIGINAL 

rxo  revision 


CX  3 PROCEDURE  FILE 
C 3 OTHER 


language: 

C 3 FORTRAN  CX 3 FMGR  COMMANDS 

C 3 RELOCATABLE  ASSEMBLY  C 3 ALGOL 

r 3 absolute  assembly  r 3 other 

category: 

CX  3 SYSTEM 

C 3 UTILITY 

function: 

-Sets  up  and  schedules  the  ALGOL  compiler. 


C 3 APPLICATION 
C 3 OTHER- 


LOCATION  / ACCESS  PROCEDURE: 
Procedure  file  resides  on  lu  2. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 
£:ALGL,  source  [, [object]  ,[lu]] 


description: 

If  only  the  source  is  specified,  defaults  are  no  object  file  is  created,  and  6 is 
the  list  lu.  If  the  object  name  is  omitted,  no  file  is  created,  however  if  lu  is 
specified,  the  additional  comma  is  required  to  hold  its  place.  If  the  object  name 
is  "%  namr"  is  created  only  if  the  source  is  "&namc" 

The  necessary  programs  are  "RP'ed"  and  "OF'ed"  by  the  procedure. 
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Software  documentation 
mahe  : „.„A„S_IN 

(lITHOR  i 

^ATE  : 9:.79 

TYPE? 

— ' T 3 PROGRAM 
■ T 3 SUBROUTINE 
CX3  FUNCTION 

Sanguagf: 

m Txl  FORTRAN 

T 3 RELOCATABLE  ASSEMBLY 
| T .1  ABSOLUTE  ASSEMBLY 

category: 

^ c :i  system 
p r.  i utility 


version: 

fx3  ORIGTNAI 
C 3 REVISION 


r.  3 PROCEDURE  FILE 
L 3 OTHER 


E J FMGR  COMMANDS 
T 3 ALGOL 

C 3 OTHER 


r:X3  APPLICATION 
f 3 OTHER. 


junction: 

J Compute  ARC 


SINE  of  given  angle 


(scat ION  / ACCESS  PROCEDURE: 

^ X = AS IN  (ANGLE) 

® Angle  is  angle  in  radians 


jj^CECUT J.NG  PROCEDURE  / CALLING  SEQUENCE: 
grfp  CR  19 

Inscription: 


lOFTWARE  DOCUMENTATION 


^ame : ....„.AUT.0R... 

luTHaRi..0™. 

Jate: 

type: 

Ir.xl  PROGRAM 

r.  3 SUBROUTINE 
C 3 FUNCTION 


Source  file  on  CR  13 


version: 

f.Xl  ORIGINAL 
n 3 REVISION 


n 3 PROCFHURE  FILE 
r 3 OTHER 


r 3 EMGR  COMMANDS 
r 3 ALGOL 

r 3 OTHER 


C 3 APPLICATION 
T 3 OTHER 


users  of  a power  fail 


1 


Ianguagf: 

CX3  FORTRAN 

r_  3 RELOCATABLE  ASSEMBLY 
T 3 ABSOLUTE  ASSEMBLY 


category: 

m LX3  SYSTEM 
( L 3 UTILITY 


i 


■unction: 

Reset  all  the  TTY's  and  inform 


f*OCATION  / ACCESS  PROCEDURE: 


jXECUTING  PROCEDURE  / CALLING  SEQUENCE: 
Activated  at  the  time  of  a power  failure 


l SCRIPT I on: 


1 


SOFTWARE  DOCUMENTATION 

NAME : .BACKUP 

author:  _HP. 

DATE  :_I  A/79-- 

type: 

E X3  PROGRAM 

r 3 subroutine 

r.  3 FUNCTION 
language: 

E XI  FORTRAN 

r xi  RELOCATABLE  ASSEMBLY 
C X3  ABSOLUTE  ASSEMBLY 

category: 

E X»  SYSTEM 
C X3  UTILITY 

function: 

Back  up  disc  cartridges  to  mag  tape. 


LOCATION- / ACCFSS  PROCEDURE: 

All  programs  references  are  permanent  system  programs  included  at  SYSGEN. 
files  reside  on  CR27 : SYSGEM. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

RTE  Utility  Programs  Reference  Manual.  (92060-90017) 


version: 

t:  3 ORIGINAL 
CX3  REVISION 


r 3 PROCEDURE  FILE 
r 3 OTHER 


E 3 FMGR  COMMANDS 
IT  3 ALGOL 
E 3 OTHER 


E 3 APPLICATION 
E 3 OTHER 


description: 


RTE  Utility  Programs  Reference  Manual.  (92060-9001 7) 


Object 
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. 


■ 


/ 

' 


SOFTWARE  DOCUMENTATION 


version: 

T.  XI  ORIGINAL. 
C 3 REVISION 

date:__1Q/JZZZ 


name:_-bml-og 

author: lejhman 


type: 

C 3 PROGRAM 
C SUBROUTINE 
C 3 FUNCTION 


C 3 PROCEDURE  FIL.E 
C 3 OTHER 


language: 

C X3  FORTRAN 

r 3 RELOCATABLE  ASSEMBLY 
L 3 ABSOLUTE  ASSEMBLY 


C 3 FMGR  COMMANDS 
C 3 ALGOL 
r 3 OTHER 


category: 

SYSTEM 
Cx3  UTILITY 

function: 


Z 3 APPLICATION 
Z 3 OTHER 


Returns  4 014  terminal  status  and  current  beam  position. 


LOCATION  / ACCESS  PROCEDURE: 

Included  in  PLOT-10  library. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

-CALL  BMLOC  (ISTAT,  IX,  IY) 

description: 

ARGUMENTS: 

ISTAT:  see  4014  manual  for  codes 

IX:  screen  X-coordinate  location 

IT:  screen  Y-coordinate  location 


. 


OFT WARE  DOCUMENTATION 


AME : JJS™. 

uthor:  „-m.: 


Pexton 


version: 

r.  1 ORIGINAL 
fix}  REVISION 


^^ate:  App  1.-. ...197,9 

type: 

If.  3 PROGRAM 

CXI  SUBROUTINE 
r .1  FUNCTION 


IANGUAGE  J 

CXI  FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
| [ 1 ABSOLUTE  ASSEMBLY 

category: 


n 


C 3 SYSTEM 
C 3 UTILITY 


r.  3 PROCEDURE  FILE 
C 3 OTHER.. 


C 3 FMGR  COMMANDS 
C 3 ALGOL 

C 3 OTHER 


CX3  APPLICATION 
C 3 OTHER 


function: 

^ Controls  placement  of  CRT  Alpha/numeric  beam  for  messages 


In 

fl 


CATION  / 

% GRFP 


ACCESS 

CR  19 


procedure: 


A 

I 

I 

I 

a 

a 

a 

a 


ECUTING  PROCEDURE  / CALLING  SEQUENCE:  Call  BPOSN  (IFUNC,  NUMLNS , ICRSEF) 

IFUNC  — function  of  subroutine  1 NUMLNS  — If  IFUNC  = 1 or  2;  number  of  lines  to  be  out 

0)  initialize  If  IFUNC  = 3;  number  of  lines  from  top  of 

1)  position  A/N  beam  page 

2)  Adjust  A/N  beam  placement  variables  If  IFUNC  = 0;  initial  value  of  left  margi 

SCRIPT  TON:  without  moving  beam 

3)  Erase  CRT  screen  ICRSEF  — erase  flag 


NOTE:  This  routine  cannot  be  swapped. 


-1)  disable  autoerase,  don’t  adjust  left 
margin 

0)  disable  auto-erase,  adjust  left  margin 
if  necessary 

1)  enable  auto-erase 

If  IFUNC  = 0;  initial  value  cf  Y position 


7 


jJoFTWARF  DOCUMENTATION 
TD7AP 

NAME  J VERS I ON  i 

RTX3  ORIGINAL 
UTHOR * r 3 REVISION 


Ji  ATE 

type: 

■fX3  PROGRAM 

r 3 SUBROUTINE 
r 3 FUNCTION 


r 3 PROCEDURE  FILE 

r 3 OTHER.. _ 


1 

1 


ANGUAGE ♦ 

r 3 FORTRAN 

TX3  RELOCATABLE  ASSEMBLY 
f 3 ABSOLUTE  ASSEMBLY 


category: 


* 


E 3 SYSTEM 
Cxi  UTILITY 


C 3 FMRR  COMMANDS 
C 3 A I..  GOI. 

r.  3 OTHER 


f.  3 APPLICATION 
T 3 OTHER 


function: 


I 


Clears  the  locked  word  in  the 


cartridge 


directory 


(oCATION  / ACCESS  PROCEDURE  * 

Source  file  on  CR  13 

fECUTING  PROCEDURE  / CALLING  SEQUENCE: 
RU,  CSZAP,  PI,  P2 


I 

a 


SCRIPT I on: 

Where  PI  is  the  LU  of  the  USER, 


and  P2  0 is  a LU  specification 


>0  cartridge  ID 


I 

a 


a 

a 
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SOFTWARE  DOCUMENTATION 


name:  . CLOSE _ 

AUTHOR:  __  i.ehman 

version: 

rx  3 original 
C 3 REVISION 

T^vr_4  12/1/76 

date:  _ _ _ _ 

type: 

C 3 PROGRAM 
C 3 SUBROUTINE 
C 3 FUNCTION 

rX3 
r 3 

PROCEDURE  FILE 
OTHER 

language: 

C 3 FORTRAN 

C 3 relocatable  assembly 
E 3 ABSOLUTE  assembly 

r.X3 
r.  3 
C 3 

FMGR  COMMANDS 

ALGOL 

OTHER 

category: 

Ex  3 SYSTEM 
C 3 UTILITY 

C 3 
C 3 

APPL I CAT I ON 
OTHER 

function: 

Closes  open  files  when  possible. 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  resides  on  lu  2. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

: tCLOSE,  name 


description: 

&n  attempt  is  made  to  rename  the  file  to  its  current  name. 

A file  manager  error  -2  (file  already  exists)  indicates  a successful  close. 


SOFTUARE  DOCUMENTATION 


name:__?^r-s 

AUTHOR  t_.A.ehEl-.Q 

date: 1/L5/Z§ 

type: 

C V PROGRAM 

r 3 subroutine 

C 3 FUNCTION 


version: 

r 3 original 

C 3 REVISION 


C 3 PROCEDURE  FILE 
C 3 OTHER 


language: 

l X3  FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
t 3 ABSOLUTE  ASSEMBL.Y 

category: 

C X3  SYSTEM 
CX3  UTILITY 

function: 

Recover  unused  disc  space  from  files 


n 3 fmgr  commands 

r 3 ALGOL 
C 3 OTHER 


r 3 APPLICATION 
r 3 OTHER 


which  exists  due  to  edit  operations. 


LOCATION  / ACCESS  PROCEDURE : 

Load  module  resides  on  CR  2.  Source  on  CR18;  object  on  CR27  SYSGEN 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 
- RU,  CMPRS  £,lu[,cr]] 


DESCRIPTION  J 

Any  unused  sectors  will  be  recovered  from  each  file  residing  on  the  cartridge 
with  cartridge  reference  number  “cr".  If  "cr"  is  not  specified,  the  user  will 
be  asked  for  its  value.  The  cartridge  should  be  packed  when  CMPRS  is  completed. 
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0FTUARE  DOCUMENT AT  TOW 


i 

8 


ame: 


DAFMP 


UTHOR  i 

ATF  J June  1979 


type: 

IE  3 PROGRAM 

r.Xl  SUBROUTINE  library 
C 3 FUNCTION 


anguage: 

rx.l  FORTRAN 

r 3 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 


category: 

If.  3 SYSTEM 
f!x3  UTILITY 

function: 

Keyed  (Indexed)  file  access 


I 


OCATION  / ACCESS  PROCEDURE: 


version: 

Lx3  ORIGINAL 
r 3 REVISION 


r 3 PROCEDURE  FILE 
r.  .1  OTHER 


r 1 FMGR  COMMANDS 
r 3 ALGOL 
r 3 OTHER 


r 3 APPLICATION 
T 3 OTHER... 


I 

i 

i 


Source  and  ROM  on  CR  13;  must  be  linked  explicitly 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE : 
See  11a  - llo 
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software:  documentation 


version: 

Q(  3 ORIGINAL 
r.  :i  REVISION 

date: I/S/73 


NAME : DAFTJP 

AUTHOR  :_.JLehman- 


type: 

C 3 PROGRAM 
CX3  SUBROUTINE 
l 3 FUNCTION 


T 3 PROCEDURE  FILE 
C 3 OTHER 


language: 

l X3  FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
L 3 ABSOLUTE  ASSEMBLY 


C 3 FMGR  COMMANDS 
C 3 ALGOL 
r 3 OTHER 


category: 

CXll  SYSTEM 

rxn  utility 


t 3 APPLICATION 
C 3 OTHER 


function: 

Direct  rile  access  similar  to  IBM  Define  File  operations 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CR18;  object  on  CR27;  included  in  system  library  at  SYSGEN. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

See  12a,  12b. 

description: 

See  12a,  12b. 
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SOFTWARE  DOCUMENTATION 


NAME? 


DATE 


author: 


Lehman 


DAT  V-JLVJL 


version: 

1x3  ORIGINAL 
r.  3 REVISION 


type: 

L 3 PROGRAM 
LX  3 SUBROUTINE 
C 3 FUNCTION 

language: 

LX  3 FORTRAN 

L 3 RELOCATABLE  ASSEMBLY 
L 3 ABSOLUTE  ASSEMBLY 

category: 

L 3 SYSTEM 
L XI  UTILITY 


L 3 PROCEDURE  FILE 
L 3 OTHER 


L.  3 FMGR  COMMANDS 
L 3 ALGOL 
L 3 OTHER 


L 3 APPLICATION 
L 3 OTHER 


function: 

Determines  current  date. 

LOCATION  / ACCESS  PROCEDURE! 

Source  on  CRT 8 ; object  on  CR27  SYSGEN;  included  in  disc  resident  library  at  SYSGEN. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE! 
CALL  DATE (I DATE) 


description: 

Subroutine  returns  current  time  in  8 words  integer  array  IDATE  as  follows: 


IDATE  (1) 
IDATE  (20 
IDATE  (3) 
IDATE  (4) 
IDATE  (5) 
IDATE  (6) 
IDATE  (7) 
IDATE  (8) 


integer  hours  (1-12)  (Integer  representation) 
integer  minutes  (0-60)  (integer  representation) 
integer  seconds  (0-60)  (Integer  representation) 
ASCII  "AM"  or  "PM" 

ASCII  month  (first  2 characters) 

ASCII  month  ( third  character,  blank) 
integer  day  of  month 
integer  year 
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gOFTWARE  DOCUMENTATION 

DAXES 

yAMEJ 


IS 


uthor  : 


gATE: 

TYPE  ♦ 

^ C a PROGRAM 
p|  VX1  SUBROUTINE 
C 1 FUNCTION 


HIanguage: 

m Cxi  FORTRAN 

fl  1 RELOCATABLE  ASSEMBLY 
| T 3 ABSOLUTE  ASSEMBLY 

category: 

I[  1 SYSTEM 
r 1 UTILITY 


version: 

IT  XI  ORIGINAL 
r 1 REVISION 


t 3 PROCEDURE  FILE 

r a other 


n a FMGR  COMMANDS 

r a algoi.. 

r a other 


rXa  APPLICATION 

r a other 


junction: 

Draw  axes  through  given  point. 


I 


SOCATION  / ACCESS  PROCEDURE: 
| %GRFP  CR  19 


|jX 


ECU TING  PROCEDURE  / CALLING  SEQUENCE: 


Call  DAXES  (XORG,  YORG) 

XDRG  — X coordinate  of  origin 
YORG  --  Y coordinate  of  origin 

pescrtptton: 


Axes  are  drawn  to  the  virtual  window  borders 


rt 


SOFTWARE  DOCUMENTATION 


NAME : PJ-V.ALL 

author:  __  Lehman 

date: 1/1/77- 

type: 

C 3 PROGRAM 
r 1 SUBROUTINE 
n 3 FUNCTION 


version: 

ORIGINAL 
C 3 REVISION 


C 3 


PROCEDURE  FILE 
OTHER 


language: 

r 3 FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
E 3 ABSOLUTE  ASSEMBLY 


FMGR  COMMANDS 
C 3 ALGOL 
F 3 OTHER 


category: 


cx-1 

r.  3 


SYSTEM 

UTILITY 


C 3 APPLICATION 
F 3 OTHER 


function: 

Dismounts  peripheral  cartridges, 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  resides  on  lu  2. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

1 : DC. ALL 

description: 

Dismounts  all  peripheral  disc  cartridges  with  lu  11  through  27. 


OFTUARF  DOCUMENTATION 


4JAME  * 


i 


DDATE 


uthgr: 


M.  P ex ton 


version: 

CX3  ORIGINAL 
C 3 REVISION 


|atf:J^:^97„9 

type: 

SC  3 PROGRAM 

CX3  SUBROUTINE 
C 3 FUNCTION 

■ANGUAGE I 
m C XT  FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
■ C 3 ABSOLUTE  ASSEMBLY 


C 3 PROCEDURE  FILE 
C 3 OTHER.... 


C 1 FMGR  COMMANDS 
C 3 ALGOL 

C 3 OTHER_ .... 


category: 

C 3 SYSTEM 
C 3 UTILITY 


I 


Cx3  APPLICATION 

C 3 OTHER.. 


junction: 

Display  current  time  and  date  at  given  location  on  CRT  screen 


X 


LOCATION  / ACCESS  PROCEDURE: 
| %GRFP  CR19 


r 


ECU! TNG  PROCEDURE.  / 


CALL  DDATE  (IX,  IY) 
IX  — CRT  screen  X 
IY  — CRT  screen  Y 

escription: 


CALLING  SEQUENCE: 


coordinate 

coordinate 


SOFTWARE  DOCUMENTATION 


NAME  : DISP 1A£ _S0f IWARE__ 

AUTHOR  : Ji°]?_Hun_tsman 

HATE : 3/8/79 

TYPE? 

L PROGRAM 
C 3 SUBROUTINE 
T 3 FUNCTION 


version: 

r 3 ORIGINAL 
CXl  REVISION 


L 3 PROCEDURE  FILE 
C 3 OTHER 


language: 

C XII  FORTRAN 

r 3 RELOCATABLE  ASSEMBLY 
T.  3 ABSOLUTE  ASSEMBLY 


C 3 FMGR  COMMANDS 
L 3 ALGOL 
C 3 OTHER 


category: 
rx3  system 
LX 3 UTILITY 


T 3 APPLICATION 
C 3 OTHER 


function: 

Provides  spooled  access  to  plotter  via  Tektronix  Plot-10  calls 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRT 7;  object  in  %DSPP  on  CR2 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 


DESCRIPTION 


SOFTWARE  DOCUMENTATION 


NAME 


DVR12 


AUTHOR 


Pexton 


DATE 


12/15/77 


version: 

ORIGINAL 
C 3 REVISION 


type: 

EX3  PROGRAM 
C 3 SUBROUTINE 
r 3 FUNCTION 


r 3 PROCEDURE  FILE 
E 3 OTHER 


language: 

C 3 FORTRAN 

EX  3 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBL.Y 


r 3 FMGR  COMMANDS 
r 3 ALGOL 
E 3 OTHER 


category: 

CX  3 SYSTEM 
C 3 UTILITY 


C 3 APPLICATION 
L 3 OTHER 


function: 

Line  printer  driver  for  LA180  Decwriter  1. 


LOCATION  / ACCESS  PROCEDURE: 

Memory  resident  program 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 


DESCRIPTION 


Soft 


OFTUARE  DOCUMENTATION 


3 


DWNDO 


version: 


UTHOR  J ... 


M.  Pexton 


Cx3  ORIGINAL 
r 3 REVISION 


|ftTE 

TYPE 


Sept.  1979 


t 3 PROGRAM 
CX3  SUBROUTINE 
r 3 FUNCTION 


r 3 PROCEDURE  FILE 
C 3 OTHER _ 


anguagf: 

CXI  FORTRAN 

C 1 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 


C 3 FMGR  COMMANDS 
C 3 ALGOL 
r 3 OTHER 


ATEGORY  J 


C 3 SYSTEM 
C 3 UTILITY 


CX3  APPLICATION 
C 3 OTHER 


unction: 

Outline  Tekronix  CRT  screen  window 

OCATION  / ACCESS  PROCEDURE: 

%GRFP  CR19 

XECUTING  PROCEDURE  / CALLING  SEQUENCE: 
Call  DWNDO 

ascription: 


SOFTWARE  DOCUMENTATION 


name: as_ 

AUTHOR : Lehman 

date: MWJ. 


type: 

L h PROGRAM 
C 3 SUBROUTINE 
C 3 FUNCTION 


version: 

rX  3 ORIGINAL, 
r 3 REVISION 


r 3 PROCEDURE  FILE 
r 3 OTHER 


language: 

C p FORTRAN 

C 3 RELOCATABLE  ASSEMBI..Y 
T 3 ABSOLUTE  ASSEMBLY 


C 3 EMGR  COMMANDS 
C 3 ALGOL 
C 3 OTHER 


category: 

C)(3  SYSTEM 
r 3 UTILITY 


C 3 APPLICATION 
C 3 OTHER 


function: 

Converts  EBCDIC  records  to  ASCII  equivalent. 


LOCATION  / ACCESS  PROCEDURE: 

Load  module  resides  in  type  6 file  on  CR2.  Source  on  CR18;  object  on  CR27  SYSGEN. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

JL*  EB2AS  (conversational  input  required) 


description: 


stores^SCII^n  discTfile*  US<2r  Specified  source  (ma9  tape  or  disc  file)  and 
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software  documentation 


N A M e : _ _.§DJJ version: 


AUTHOR:  -Lehman- 

r.X3 
C 3 

ORIGINAL 

REVISION 

DATE:  1 2/18/78 

type: 

C 3 PROGRAM 
C 3 SUBROUTINE 
l 3 FUNCTION 

CX3 
r 3 

PROCEDURE  FILE 
OTHER 

language: 

C 3 FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 

n 3 
L 3 

FMGR  COMMANDS 

ALGOL 

OTHER 

category: 

r X3  SYSTEM 
C 3 UTILITY 

l 3 
r 3 

APPLICATION 

OTHER 

function: 

Creates,  schedules,  and  releases  a temporary  copy  of  EDITR. 

LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  resides  on  lu  2. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

£.  :EDIT 

description: 

A temporary  copy  of  the  editor  is  created  from  EDIOO: : 2 based  on  the 

V'  \ - 

terminal  logical-'unit.  This  copy  is  scheduled,  then  is  released  upon  termination 
of  the  edit  session.  All  edit  commands  function  as  described  in  the 
RTE  EDITR  manual. 
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BOFTUARF  riOriiMFNTATION 


iame:_^.s.e. 


Author 


IiATE! 


type: 
rxn 
r i 
r 3 


PROGRAM 
SUBROUT INF 
FUNCTION 


Language: 

rxi  FORTRAN 

r.  3 RELOCATABLE  ASSEMBLY 
r.  3 ABSOLUTE  ASSEMBLY 


version: 

rx3  ORIGINAL 
r 3 REVISION 


C 3 PROCEDURE  FILE 
F 3 OTHER 


C 3 FMGR  COMMANDS 
r.  3 ALGOL 

T 3 OTHER 


category: 


r 3 SYSTEM 
r 3 UTILITY 


rx3  APPLICATION 
f 3 OTHER 


ft| 

m 


unction: 

Erases  the  screen 


■OCATION  / ACCESS  PROCEDURE: 
Source  file  on  CR  13 


« 

m 

* 


ECUTING  PROCEDURE  / CALLING  SEQUENCE: 
RU,  ERASE 

SCRIPT I on: 


version: 

Cy  3 ORIGINAL 

r;  j revision 


r y3  PROCEDURE  FILE 
C 3 OTHER 


Cx  3 FMGR  COMMANDS 
C 3 ALGOL 
C 3 OTHER 


C 3 APPLICATION 
C 3 OTHER 

function: 

Exits  a copy  of  FMGR  and  releases  ID  segment. 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  resides  on  lu  2. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

: : EX 


description: 

Calculates  the  name  of  the  current  copy  of  FMGR  scheduled  by  FMG  and 
^terminates  it,  releasing  the  ID  segment.  See  also  FMG. 


SOFTWARE  DOCUMENTATION 
NAMEJ_fX 

author:.  J-jehman 

DATE: l2YJ5/7_8 

type: 

l 3 PROGRAM 
£ 3 SUBROUTINE 
r 3 FUNCTION 

language: 

C 3 FORTRAN 

C 3 RELOCATABLE  ASSEMBL.Y 
T 3 ABSOLUTE  ASSEMBLY 

category: 

C X3  SYSTEM 
C 3 UTILITY 
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SOFTWARE  DOCUMENTATION 


NAME  J__“X_E?5 *. VERSION? 

Cx  3 ORIGINAL 

author  r.  3 revision 

DATE : _ JJ7JZZ.8 

type: 

CX3  PROGRAM 
CX3  SUBROUTINE 
r 3 FUNCTION 

language: 

C 3 FORTRAN 
CX3  REL.OCAT ABL 
T 3 ABSOLUTE  A 

category: 

CX3  SYSTEM 
CX3  UTILITY 

function: 

Provides  a patch  to  call  EXEC  routines  from  ALGOL. 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRT 8 ; object  on  CR27  SYSGEN:  included  in  disc  resident  library  at 
SYSGEN 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

See  HP  ALGOL  Reference  Manual,  Section  7-3  (02116-S072) 


description: 

See  HP  ALGOL  Reference  Manual,  Section  7-3  (02116-9072) 


C 3 APPLICATION 
C 3 OTHER 


T 3 PROCEDURE  FILE 
T 3 OTHER 


E ASSEMBLY 
SSEMBLY 


t 3 FMGR  COMMANDS 
C 3 ALGOL 
L 3 OTHER 


SOFTWARE  DOCUMENTATION 


name: (LE_XJI 

author: Jr^tLnLa_n 

date: 5/25/78 

type: 

C 3 PROGRAM 
C 3 SUBROUTINE 
E 3 FUNCTION 

languagf: 

C 3 FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 

category: 

Cx  3 SYSTEM 
r.  3 UTILITY 

function: 

Exits  FMGX 


version: 

rx  3 ORIGINAL 
r 3 REVISION 


Cx  3 PROCEDURE  FILE 
C 3 OTHER 


CX  3 FMGR  COMMANDS 
C 3 ALGOL 
r 3 OTHER 


C 3 APPLICATION 
C 3 OTHER 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  resides  on  lu  2. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

CALL  EXEC  (23,  FMGX*  2HFE,  2HXI,  2HTI 9 ...) 


description: 

Used  when  a command  string  is  passed  to  FMGX  when  scheduled  from  a user 
program.  See  also  IDSEG. 
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3FTWARE  DOCUMENTATION 

»NElJ™ 

author  


version*: 

tx3  ORIGINAL 
r 3 REVISION 


typf: 

tx3  PROGRAM 
r 3 SUBROUTINE 
r 3 FUNCTION 

hNGUAGF: 

r.x3  FORTRAN 

V.  3 RELOCATABLE  ASSEMBLY 
I".  3 ABSOLUTE  ASSEMBLY 

category: 

C x3  SYSTEM 
E 3 UTILITY 

-unction: 

Re-writes  a track  and  a sector 


T 3 PROCEDURE  FILE 
r 3 OTHER 


C 3 EMGR  COMMANDS 
I 3 ALGOL 
C 3 OTHER 


r 3 APPLICATION 
C 3 OTHER... 


OTCATION  / ACCESS  PROCEDURE: 
Source  file  on  CR  13 


m 

*1 


(ECUTTNG  PROCEDURE  / CALLING  SEQUENCE! 
RU,  FEXT 


rescript ion: 


This  program  is  usually  used  to  fix  up  files  with  extents. 


software:  documentation 


name: 

AUTHOR : 


DATE 


12/1/76 


version: 

[X  3 ORIGINAL 
r.  3 REVISION 


type: 

IT.  3 PROGRAM 
C 3 SUBROUTINE 
E 3 FUNCTION 


[X  3 PROCEDURE  FILE 
C 3 OTHER 


language: 

r 3 FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 


r X3  FMGR  COMMANDS 
r 3 ALGOL 
C 3 OTHER 


category: 

EX  3 SYSTEM  C 3 APPLICATION 

C 3 UTILITY  E 3 OTHER 

function: 

issues  form  feed  to  line  printer 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  resides  on  lu  2. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

: :FF  -or-  * RU,  FMGR,  FF 


description: 

Issuess  form  feed  to  line  printer 
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SOFTWARE  DOCUMENTATION 


name:__JW? 

AUTHOR ! Lehman 

date:_J2/15Z7JL 


version: 

EX3  ORIGINAL 
r 3 REVISION 


type: 

cXd  program 
C 3 SUDROUTINE 
E 3 FUNCTION 


E 3 PROCEDURE  FILE 
E 3 OTHER 


language: 

E 3 FORTRAN 

fl  3 RELOCATABLE  ASSEMBLY 
E 3 ABSOLUTE  ASSEMBLY 


E 3 FMGR  COMMANDS 
CX  3 ALGOL 
L 3 OTHER 


category: 

LX3  SYSTEM  E 3 APPLICATION 

E 3 UTILITY  r 3 OTHER 

function: 

Creates  and  schedules  a copy  of  FMGR. 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRIB,  ooject  on  CR27;  included  as  program  during  system  generation. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

± RU,  FMG 

description: 


Creates  a copy  of  FMGR  based  on  the  user  terminal  lu  (f  1),  schedules  the  copy 

Yu  nsc  lu  set  to  the  terminal.  : : EX  should  be  used  to  terminate 

the  session.  See  also  EX  “ 
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SOFTWARE  DOCUMENTATION 

version: 

L 3 ORIGINAL 

Ex3  revision 


date: 

type: 

C 3 PROGRAM 
E 3 SUBROUTINE 
T 3 FUNCTION 

language: 

L 3 FORTRAN 
C 3 RELOCAT ABL 
C 3 ABSOLUTE  A 

category: 

CX3  SYSTEM 

C 3 UTILITY 

function: 

Sets  up  and  schedules  the  FORTRAN  compiler. 


LOCATION  / ACCESS  PROCEDURE: 
Procedure  file  is  on  lu  2. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 


:FQRT,  source  [, [object], [lu], [options]] 
description: 

If  only  the  source  is  specified 5 defaults  are  no  object  file  created,  6 
is  the  list  lu,  and  options  in  the  FTN4  control  statement  are  used.  If  the 
object  name  is  omitted,  no  file  is  created,  however,  if  lu  or  option  are 
specified,  the  commas  are  required  to  hold  it's  place.  If  the  object  name  is 
,,,%name"  will  be  created  only  if  the  source  is  "&NAMR.  The  options,  if  included, 
override  those  in  the  FTN4  control  statement.  A separate  copy  of  the  compiler  . 
is  created  for  each  terminal  from  the  master  copy,  FTN00::2 


C 3 APPLICATION 
r 3 OTHER : 


r.yl  PROCEDURE  FILE 
C 3 OTHER 


E ASSEMBLY 
SSEMBLY 


CX3  FMGR  COMMANDS 
C 3 ALGOL 
C 3 OTHER 


name: 


FORT 


author: 


Lehman 
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SOFTWARE  DOCUMENTATION 

name:_JSORI version: 

rx3  original 

AUTHOR :_CGS ' r 3 REVISION 

DATE : 5/1/78 

type: 

rx:i  PROGRAM 
C 3 SUDROUTINE 
C 3 FUNCTION 

language: 

CX  3 FORTRAN 
EX  3 RELOCATABL 
T 3 ABSOLUTE  A 

category: 

C 3 SYSTEM 
CXI  UTILITY 

function: 

ASCII  disc  file  sort 


LOCATION  / ACCESS  PROCEDURE: 

Load  module  resides  on  lu  2;  source  on  CRT 8 


r 3 APPLICATION 
C 3 OTHER 


C 3 PROCEDURE  FILE 
r 3 OTHER 


E ASSEMBLY 
SSEMBLY 


r 3 FMGR  COMMANDS 
r 3 ALGOL 
C 3 OTHER 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

1 : RU,  FSORT  [,pl[,p2]] 

description: 
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SOFTWARE  DOCUMENTATION 


NAME } _ JPENJL 

AUTHOR : ..  Lehmafl 

DATE ! 

type: 

E 3 PROGRAM 
EX  3 SUBROUTINE 
C 3 FUNCTION 

language: 

EX  3 FORTRAN 

E 3 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 

category: 

[X  3 SYSTEM 
tx  3 UTILITY 

function: 

•Writes  identifier  on  user  specified  lu 


LOCATION  / ACCESS  PROCEDURE: 
Source  on  CRTS;  object  on  CR27  SYSGEN; 


version: 

EX  3 ORIGINAL 
E 3 REVISION 


r 3 PROCEDURE  FIL.E 
t 3 OTHER 


E 3 FMGR  COMMANDS 
E 3 ALGOL 
E 3 OTHER 


E 3 APPLICATION 
E 3 OTHER 


included  in  system  library  at  sysgen. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 


CALL  I DENT  (LU,  I DATE,  ID) 
description: 

Writes  a 6 character  identifier  followed  by  the  time  and  date  on  a specified  lu. 
ARGUMENTS: 

LU:  logical  unit  which  to  write 

IDATE:  8 word  integer  array  containing  current  time;  can  be  created  by  calling 

DATE. 

ID:  3 word  integer  array  containing  an  ASCII  identifier. 
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SOFTWARE  DOCUMENTATION 


name:__.  idseg/idchk  ____ 

AUTHOR : Mooney  / L ehma  n _ __ 

DATE: 5/J/ZZ. 

type: 

C 3 PROGRAM 
CX  3 SUBROUTINE 
C 3 FUNCTION 

language: 

C XI  FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
T 3 ABSOLUTE  ASSEMBLY 

category: 

C X3  SYSTEM 
r 3 UTILITY 


version: 

C 3 ORIGINAL 
i:X3  REVISION 


r 3 PROCEDURE  FILE 
C 3 OTHER 


C 3 FMGR  COMMANDS 
C 3 ALGO! 

C 3 OTHER 


C 3 APPLICATION 
r 3 OTHER 


function: 

ftP's/  OF's  ID  sements. 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRIB;  object  on  CR27  SYSGEN;  included  in  di 
generation. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

CALL  IDS EG  (IPNAME,  KODE) 


sc  resident  library  at  system 


description: 

Checks  for  the  existence  of  the  ID  segment  requested  usina  TDfW*  thpn  if 
appropriate,  "RP's"  or  "OF's"  the  program.  M e5''ea’  USlng  1DCHK’  then’  lf 

-ARGUMENTS: 

IPNAME:  3 word  integer  array  containing  ASCII  program  name. 

KODE:  operations  code:  l=Rps  2=0F. 

FMGX  is  used  to  perform  the  RP  or  OF. 


I 
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[OFTWARE  DOCUMENTATION 


m 

! A 


a me:... 


IEOR 


author: 


type: 

M rxi  PROGRAM 
^ r 1 SUBROUTINE 
C 3 FUNCTION 


Ianguagf: 

r 3 FORTRAN 


CbX3  RELOCATABLE  ASSEMBLY 
T 3 ABSOLUTE  ASSEMBLY 


version: 

l"X3  ORIGINAL 
r 3 REVISION 


IT  3 PROCEBURE  FILE 
r 3 OTHER 


t 3 FMGR  COMMANDS 
T 3 ALGOL 

r 3 OTHER 


r 3 APPLICATION 

T 3 OTHER..... 

junction: 

Exclusive  or  of  2 arguments 
CATION  / ACCESS  PROCEDURE: 


category: 
in  r 3 system 

^ r.X3  UTILITY 


■ 

W 


Source  file  on  CR  13 


ECUTING  PROCEDURE  / CALLING  SEQUENCE 
Integer  variable  = IEOR  (ARG1 , ARG2) 


0 

♦ 


■ 


SCRIPT I on: 


SOFTWARE  DOCUMENTATION 


NAME : _ interaction. 


AUTHOR  J _ Jluntsma_n__ 

date: imZ7_9r__ 

type: 

C 3 PROGRAM 
C X3  SUBROUTINE 
C 3 FUNCTION 


VERSION  J 

EX  3 ORIGINAL 
C 3 REVISION 


C 3 PROCEDURE  FILE 
I 3 OTHER 


language: 

E X3  FORTRAN 

r 3 RELOCATABLE  ASSEMBL.Y 
C 3 ABSOLUTE  ASSEMBLY 


C 3 FMGR  COMMANDS 
E 3 ALGOL 
E 3 OTHER 


category: 

E X3  SYSTEM 
CX3  UTILITY 

function: 

, Standardizes  user  interaction 


E 3 APPLICATION 
E 3 OTHER 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRTS,  object  on  CR27  SfSGENj  included  in  library  at  system  generation 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 


description: 
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SOFTWARE  DOCUMENTATION 

name: ISA version: 

Z XJ  ORIGINAL 

author: Lehman r 3 revision 

date: ZLUJ1 

type: 

Z 3 PROGRAM 
Z 3 SUBROUTINE 
Z X3  FUNCTION 

language: 

Z 3 FORTRAN 
Zy  3 RELOCAT ABL 
C‘  3 ABSOLUTE  A 

category: 

Z%3  SYSTEM 
tX]  UTILITY 

function: 

Arithmetic  shift. 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRTS;  object  or,  CR27SYSGEN;  included  in  library  at  system  generation 


T 3 APPLICATION 
r.  3 OTHER 


r 

3 

PROCEDURE  FILE 

c 

3 

OTHER 

Z 

3 

FMGR  COMMANDS 

E ASSEMBLY 

z 

3 

ALGOL. 

SSEMBLY 

z 

3 

OTHER 

EXECUTING  PROCEDURE./  CALLING  SEQUENCE.: 
Integer  variable  = ISA(argument , n) 


description: 


Argument  is  shifted  left  arithmetically  the 
If  n is  negative,  the  shift  is  to  the  right. 


number  of  bits 


specified  in  n. 
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I 

I 

I 

I 

1 

I 
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SOFTWARE  DOCUMENTATION 


name: —ISC 

AUTHOR: Lehman 

date: 


version: 

C XI  ORIGINAL 
E 3 REVISION 


type: 

c 3 PROGRAM 
C 3 SUBROUTINE 
C FUNCTION 

language: 

C 3 FORTRAN 

rx3  RELOCATABLE  ASSEMB 
C 3 ABSOLUTE  ASSEMBLY 

category: 

rx3  SYSTEM 
CX3  UTILITY 


L 3 PROCEDURE  FILE 
C 3 OTHER 


L 3 FMGR  COMMANDS 
y T 3 ALGOL 

E 3 OTHER 


T 3 APPLICATION 
F 3 OTHER 


function: 

Circular  shift. 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CR18;  object  on  CR27  SYSGEN;  included  in  library  at  system  generation. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

Integer  variable  = ISC  (argument,  n) 


description: 

Argument  is  shifted  left  circularly  the  number  of  bits 
specified  in  n.  If  n is  negative,  the  shift  is  to  the  right. 
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V 

1 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

1 


SOFTWARE  DOCUMENTATION 

NAMEi„„J_SJr VERSION: 


r 

AUTHOR: Lehman c 

DATE : 311(71 

type: 

C 3 PROGRAM  C 

r 3 SUBROUTINE  T 

CX3  FUNCTION 

language: 

C 3 FORTRAN  C 

CX3  RELOCATABLE  ASSEMBLY  T 

C 3 ABSOLUTE  ASSEMBI..Y  C 

category: 

LX  3 SYSTEM  L 

LX  3 UTILITY  C 


function: 

Logical  shift 

LOCATION  / ACCESS  PROCEDURE: 

Source  on  CR18;  object  on  CR27  SYSGEN 


X3  ORIGINAL 
3 REVISION 


3 PROCEDURE  FILE 
3 OTHER 


3 FMGR  COMMANDS 
3 ALGOL 

3 OTHER 


3 APPI.  I CAT  ION 
3 OTHER 


included  in  library  at  system  generation 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 


Integer  variable  = ISL  (argument,  n) 


description: 

Argument  is  shifted  left  logically  the  number  of  bits 
n is  negative,  the  shift  is  to  the  right. 


specified  in  n. 


If 
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FTWARF  DOCUMENTATION 




AUTHOR  J _ La.r.son. 

i i p « June  1979 

type: 

C I PROGRAM 
PXl  SUBROUTINE  Library 
c 1 FUNCTION 

Ianguage: 

CXI  FORTRAN 


— C 1 RELOCATABLE  ASSEMBLY 
f!  | Cl  ABSOLUTE  ASSEMBLY 

category: 

§fl  C I SYSTEM 
^ Cxi  UTILITY 


version: 

CXI  ORIGINAL 
r.  I REVISION 


r.  I PROCEDURE  FILE 
C I OTHER 


C I FMGR  COMMANDS 
r I ALGOL 

C I OTHER- 


C I APPLICATION 
C I OTHER 


unction: 

Keyed  (indexed)  file  access 


1 ^ 

“OCATION  / ACCESS  PROCEDURE: 


« 

fl 


Source  and  ROM  on  CR 


IXECUTING  PROCEDURE  / 


13;  must  be  linked  explicitly 


CALLING  SEQUENCE: 


INSCRIPTION 


♦ 

$ 


■P 


FTWARF  DOCUMENTATION 


me: 


LABLX 


te: 


Sept.  1979 


version: 

rx^  ORIGINAL 
r 3 REVISION 


type: 

|B  r.  3 PROGRAM 
^ LX}  SUBROUTINE 
r 3 FUNCTION 


nguagf: 

CXH  FORTRAN 


C 3 RELOCATABLE  ASSEMBLY 
r 3 ABSOLUTE  ASSEMBLY 


category: 

«C  3 SYSTEM 
r 3 UTILITY 


r 3 PROCEDURE  FILE 
t 3 OTHER 


r 3 FMGR  COMMANDS 
r.  3 ALGOL. 

L 3 OTHER.... 


rxI  APPLICATION 
r 3 OTHER- — - 


g|JNCTI.ON: 

Label  X-axis  on  Tektronix  CRT  screen 
^WCATION  / ACCESS  PROCFDIJREi 


%GRFP  CR19 


g 

4 


(ECU TING  PROCEDURE  / CALLING  SEQUENCE : 
CALL  LABLX  (XORG,  YORG,  ISFLG) 
coordinate  of  origin 
coordinate  of  origin 
-1)  Labels  below  Y-coordinate 
+1)  Labels  above  Y-coordinate 


XORG  — X 
YORG  — Y 
ISFLG  — 

ascription: 


Labels  and  their  tickinarks  are  generated  from  the  left  virtual  window  border  to  the  right 
Intervals  of  tickmarks  and  labels  are  computed  according  to  the  current  definitions  of 
the  CRT  virtual  window,  screen  window,  and  character  size. 


OFTWARE  DOCUMENTATION 


< 

« 

T 

1 


LABLY 


AME  i 
'UTHORJ ... 
atf  : 


M 


Pexton 

1979 


type: 

C 1 PROGRAM 
CXI  SUBROUTINE 
C 1 FUNCTION 


1 

d 

« 


iNGUAGE  ♦ 

CXI  FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 


category: 

C 3 SYSTEM 
C 3 UTILITY 


version: 

CX3  ORIGINAL 
C 3 REVISION 


r 3 PROCEDURE  FILE 
C 3 OTHER- — . 


C 3 FMGR  COMMANDS 
C 3 ALGOL 

C 3 OTHER 


Cx3  APPLICATION 
C 3 OTHER 


I 


unction: 

Label  Y-axis  on  Tektronix  CRT 


screen 


t 


■OCATION  / ACCESS  PROCEDURE: 
%GRFP  CR19 


« 

I 


ECUTING  PROCEDURE  / CALLING  SEQUENCE X 


CALL  LABLY  (XORG,  YORG,  ISFLG) 

XORG  — X coordinate  of  origin 
YORG  — Y coordinate  of  origin 
ISFLG  — -1)  Labels  appear  left  of  X coord: 
+1)  Labels  appear  right  of  XOP,G 

SCRIPT I on: 

Labels  and  their  tickmarks  are  generated  from  the  bottom  virtual  window  border  to  the  top. 


||  Intervals  of  the  labels  are  computed  according  to  the  current  definitions  of  the  CRT 


virtual  window,  screen  window,  and  character  size. 


OFTUARE  DOCUMENT AT T ON 


n 

i 

T 

1 


A ME  J LA.XE.S._ - 

UTHmt^JJZZS* 

ate: 


type: 
r 3 
rxi 
r 3 


PROGRAM 

SUBROUTINE 

FUNCTION 


1 

1 

Ci 

1 


angijage: 

EX3  FORTRAN 

r 1 RELOCATABLE  ASSEMBLY 
fl  3 ABSOLUTE  ASSEMBLY 


category: 
r i system 
r :i  utility 


version: 

rX3  ORIGINAL 
t 3 REVISION 


r 3 PROCEDURE  FILE 

E 3 OTHER.... 


E 3 FMGR  COMMANDS 
r 3 ALGOL 

r 3 OTHER 


r.X3  APPLICATION 
C 3 OTHER 


« 

« 


unction: 

Draw  axes  through  given  point, 


■OCATION  / ACCESS  PROCEDURE: 


and  label 


%GRFP  CR19 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE:  CALL  LAXES  (XORG,  YORG,  ISFLGX,  ISFLGY) 


<| 

I 


ascription: 


XORG  — X coordinate  of  origin 
YORG  — Y coordinate  of  origin 
ISFLGX  — -1)  Labels  below  line 
Labels  above  line 
Labels  left  of  line 
Labels  right  of  line 


+D 

ISFLGY  1) 

+D 


SOFTWARE  DOCUMENTATION 


name:__LQADAP. 


AUTHOR 


Lehman 


DATE 


7/1/77 


version: 

rx  3 ORIGINAL 
C 3 REVISION 


tyf:,e: 

C 3 PROGRAM 
T 3 SUBROUTINE 
t 3 FUNCTION 


EX  3 PROCEDURE  FIL.E 
C 3 OTHER 


language: 

E 3 FORTRAN 

T 3 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 


r ^3  FMGR  COMMANDS 
E 3 ALGOL. 

C 3 OTHER 


category: 

C Xi  SYSTEM  T 3 APPL.ICATION 

C 3 UTIl.ITY  E 3 OTHER 

function: 

Sarce  a§  LOADSP  except  adds  permanent  system  program. 


LOCATION  / ACCESS  PROCEDURE: 
Procedure  file  is  ori  lu  2. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

1 ;L0ADADMP1S  P2,  P3,  P4,  P5J>  P6,  P7 

description: 

See  LOADSP. 


SOFTWARE  DOCUMENTATION 


NAME  J LOAUBG 

Lehman 


author: 

date:__ 

type: 


version: 

C XI  ORIGINAL 
C 3 REVISION 


C 3 PROGRAM 

a 3 

PROCEDURE  FI 

C 3 SUBROUTINE 
E 3 FUNCTION 

L 3 

OTHER 

language: 

C 3 FORTRAN 

CX  3 

FMGR  COMMAND 

C 3 RELOCATABLE  ASSEMBLY 

L 3 

ALGOL 

C 3 ABSOLUTE  ASSEMBLY 

L 3 

OTHER 

category: 

C X3  SYSTEM 

C 3 

APPLICATION 

r 3 UTILITY 

C 3 

OTHER 

function: 

Same  as  LOADSP  except  appends  debug  utilities 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  is  on  lu  2. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE : 

: LOADBG  [PI ,P2,P35P4,P5] SP6SP7 


description: 

See  LOADSP 
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SOFTWARE  DOCUMENTATION 


NAME: .LOADMP. 


author: 


Lehman 


DATE 


7/1/77 


type: 

C 3 PROGRAM 
C 3 SUBROUTINE 
C 3 FUNCTION 


language: 

C 3 FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
IT  3 ABSOLUTE  ASSEMBLY 


version: 

LX 3 ORIGINAL 
T 3 REVISION 


tX3  PROCEDURE  FILE 
E 3 OTHER 


CX3  FMGR  COMMANDS 
C 3 ALGOL 
C 3 OTHER 


category: 

C X3  SYSTEM 
r 3 UTILITY 


C 3 APPLICATION 
r 3 OTHER 


function: 

Same  as  LOADSP  except  includes  entire  partition  in  map. 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  is  on  lu  2. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

LOADMP  [,  PI,  P2,  P3,  P4,  P5],  P6,  P7 

description: 

See  LOADSP. 
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SOFTWARE  DOCUMENTATION 


name:  _ 

LOADRP 

version: 

r x3  ORIGINAL 

author: 

Lehman 

C 3 REVISION 

date:„ 

7/1/77 

type: 

C 3 PROGRAM 
r 3 SUBROUTINE 
C 3 FUNCTION 


Cx  3 PROCEDURE  FIL.E 
r 3 OTHER 


language: 

r.  3 FORTRAN 

r 3 RELOCATABLE  assembly 
C 3 ABSOLUTE  ASSEMBLY 


Cy  3 FMGR  COMMANDS 
r 3 ALGOI 

L 3 OTHER 


category: 

r.X  3 SYSTEM 
C 3 UTILITY 


r 3 APPLICATION 
C 3 OTHER 


function: 


Same  as  LOADSP  except  replaces  permanent  system  program. 

LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  is  on  lu  2. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

j_:  LOADRP  L PI,  P2,  P3,  P4,  P5] , P6,  P7 

description: 

See  LOADSP 
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SOFTWARE  DOCUMENTATION 


name:_ 

AUTHOR 

date:-. 


LOADSC 

Lehman 

7/1/77 


version: 

cx:i  original 
c 3 revision 


type: 

C 3 PROGRAM 
r 3 SUBROUTINE 
r 3 FUNCTION 


r.v3  PROCEDURE  FILE 
E 3 OTHER 


language: 

L 3 FORTRAN 

T 3 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 


CX3  FMGR  COMMANDS 
r 3 ALGOL 
C 3 OTHER 


category: 

LXJ  SYSTEM  T 3 APPLICATION 

C 3 UTILITY  C 3 OTHER 

function: 

Same  as  LOADSP  except  uses  system  common. 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  is  on  lu  2. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

i.  :L0ADSC  [SP1 ,P2,P3,P4,P5],  P6,  P7 


description: 


See  LOADSP. 


i 

1 


SOFTWARE  DOCUMENTATION 


name:  loadsp 

AUTHOR:  Lehman 

version: 

LX 3 ORIGINAL 
r 3 REVISION 

date: JilUL 

type: 

C 3 PROGRAM 
C 3 SUBROUTINE 
C 3 FUNCTION 

C 3 

PROCEDURE  FILE 
OTHER 

language: 

C 3 FORTRAN 

C 3 RELOCATABLE  ASSFMBI..Y 
T 3 ABSOLUTE  ASSEMBLY 

CX3 
C 3 
C 3 

FMGR  COMMANDS 

ALGOL 

OTHER 

category: 

CX3  SYSTEM 
r 3 UTILITY 

L 3 
E 3 

APPLICATION 

OTHER 

function: 

Loads  object  code  residing  ir.  one  or  rnore  object  files  (or  on  the  LG  tracks)  using 


LOADR,  saves  the  resulting  load  module  in  a type  6 file  on  lu  3,  and  releases 
the  ID  segment. 

LOCATION  / ACCESS  PROCEDURE: 


Procedure  file  is  on  lu  2. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 
: LOADS P [,P15  P2,  P3,  P4,  P5],  P6,  P7 

description: 


PI  through  P5  specify  the  file  names  of  up  to  5 object  files.  If  no  file 
■names  are  specified,  the  current  contents  of  the  LG  tracks  is  used. 

P£j  is  the  list  logical  unit  for  the  load  map 

P7  is  the  partition  number  for  the  resulting  program  (P7  = 0 implies 
the  program  can  run  in  any  partition) 
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I 

3 


SOFTWARE  DOCUMENTATION 

NAME  ! LQADSY VERSION  ! 

C ORIGINAL 

AUTHOR :__L_e_h^0. C 3 REVISION 

date: Z./J/ZZ 

type: 

C 3 PROGRAM 
C 3 SUBROUTINE 
C 3 FUNCTION 

language: 

C 3 FORTRAN 
r.  3 RELOCATABL 
C 3 ABSOLUTE  A 

category: 

L %\  SYSTEM 
C 3 UTILITY 

function: 

Same  as  LOADSP  except  load  module  is  saved  on  lu  2. 


C 3 APPLICATION 
C 3 OTHER 


r x> 

PROCEDURE  FILE 

C 3 

OTHER 

LX  3 

FMGR  COMMANDS 

ASSEMBLY 

C 3 

ALGOL 

EMBLY 

i_i 

OTHER 

LOCATION  / ACCESS  PROCEDURE! 

Procedure  file  is  on  lu  2. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE! 

1 :L0ADSY  [,P1 ,P2,P3,P4,P5],P6,P7 

description: 


See  LOADSP 


SOFTWARE  DOCUMENTATION 


name:  _lgder  - _ 

version: 

cx^i 

ORIGINAL 

author:  tip  ... 

r 3 

REVISION 

date:  9/1/78 

type: 

PROGRAM 

C 3 

PROCEDURE  FILE 

C 3 SUBROUTINE 
C 3 FUNCTION 

t 3 

OTHER 

language: 

C 3 FORTRAN 

r 3 

FMGR  COMMANDS 

CX3  RELOCATABLE  ASSEMBLY 

C 3 

ALGOL 

C 3 ABSOI..UTE  ASSEMBLY 

C 3 

OTHER 

category: 

CX3  SYSTEM 

C 3 

APPLICATION 

C 3 UTILITY 

C 3 

OTHER  ...  ... 

function: 

RTE  IV  loader 

LOCATION  / ACCESS  PROCEDURE J 

Object  on  CR27  SYSGEN;  included  as  permanent  system  program  after  system 
EXECUTING  PROCEDURE  / CALLING  SEQUENCE! 

description:  v 


See  LODSP , LODSY,  etc. 


SOFTWARE  DOCUMENTATION 


NAME: L0DSE&- 

AiiTunr.-*  Lehman 


AUTHOR 


version: 

\ Cx  3 ORIGINAL 


C 3 REVISION 


date:„ 


7/1/77 


TYPE 


C 3 PROGRAM 
T 3 SUBROUTINE 
C 3 FUNCTION 


Cx  3 PROCEDURE  FILE 
C 3 OTHER 


language: 

L 3 FORTRAN 

r 3 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 


Lx  3 FMGR  COMMANDS 
C 3 ALGOL 
L 3 OTHER 


category: 


r 3 APPLICATION 
r 3 OTHER 


function: 

Loads  object  code  for  segmented  program  residing  in  one  or  more  object  files 

£>r  the  LG  tracks)  using  LOADR. 

LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  is  on  lu  2. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

J_  * LODSP  I,  PI,  P2,  P3,  P4,  P5j , P6,  P7 

description: 

See  LOADSP. 
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SOFTWARE  DOCUMENTATION 


version: 

rx  .1  ORIGINAL 
L 3 REVISION 


NAME : _Jr_QPSP 

AUTHOR : Lehman  — 

date: 

type: 

l 3 PROGRAM 
T 3 SUBROUTINE 
C 3 FUNCTION 


EX  3 PROCEDURE  FILE 
C 3 OTHER 


LANGUAGE  J 

C 3 FORTRAN 

H 3 RELOCATABLE  ASSEMBLY 
l 3 ABSOLUTE  ASSEMBLY 


[X  3 FMGR  COMMANDS 

T 3 ALGOL 

f.  3 OTHER 


category: 

cX  3 SYSTEM 
C 3 UTILITY 


r 3 APPLICATION 
r 3 OTHER 


function: 


LOCATION  / ACCESS  PROCEDURE: 

Loads  object  code  residing  in  one  or  more  object  files  using  LODER,  saves 
the  resulting  load  module  in  a type  6 file  on  lu  3,  and  releases  the  ID 
segment 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

1 :L0DSP,  PI  [ ,P2  ,P3  ,P4  ,P5  ,P6  ,P7] 


description: 

1-  If  the  first  character  of  PI  is  either  or  LODSP  acts  just  as  LOADSP  with 

a maximum  of  5 object  files  specified  in  PI  through  P5.  (P2  through  P5  are 
. optional)  **P6  is  the  list  logical  unit  (optional,  default=6),  and  P7  is  the 
partition  (optional) 

2.  If  the  first  character  of  PI  is  not  "%"  of  "0"  , PI  is  assumed  to  be  a loader 
command  file,  P2  thelist  logical  unit(optional , default=6),  and  P3  the  partition 
(optional)  if  P2  through  P5  are  omitted.  P2  and  P3  may  be  changed  in  the  comand 

file. 

3.  If  pi  is  numeric,  PI  is  assumed  "to  be  the  logical  unit  of  the  user  terminal 
and  LODER  expects  command  input  from  the  terminal.  P2* through  P7  are  the 
same  as  described  in  2 above. 
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1 

\ 


I 

i 


SOFTWARE  DOCUMENTATION 


NAME  : lodsy 

Lehman 

author: 

date: 6/1/78 


version : 

nX]  ORIGINAL 
T 3 REVISION 


type: 

C 3 PROGRAM 
C 3 SUBROUTINE 
T 3 FUNCTION 


T.X3  PROCEDURE  FILE 
C 3 OTHER 


languagf: 

L 3 FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
F 3 ABSOLUTE  ASSEMBLY 


CX3  FMGR  COMMANDS 
C 3 ALGOL 
T 3 OTHER 


category: 

C )(3  SYSTEM 
C 3 UTILITY 


C 3 APPLICATION 
r 3 OTHER 


function: 

Same  is  LODSP,  except  load  module  is  saved  on  lu  2. 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  is  on  lu  2 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE? 

1 : LODSY,  P'l  [ P2SP3,  P4,  P5,  P6»  P7] 

description: 


See  LODSP 


m 


FTWARE  DOCUMENTATION 

MAG 


KMEJ_ 

THOR:^J._?.?.3lt.on 

TE  « Sep  t . 1979 


m 


TYPE : 

M r 3 PROGRAM 
^ E 3 SUBROUTINE 
r.Xl  FUNCTION 


% 

1 


NGUAGEJ 
CX3  FORTRAN 

E 3 RELOCATABLE  ASSEMBLY 
F 3 ABSOLUTE  ASSEMBI..Y 


version: 

CX3  ORIGINAL 
E 3 REVISION 


E 3 PROCEDURE  FILE 
r 3 OTHFR 


r 3 FHGR  COMMANDS 
E 3 ALGOL 
E 3 OTHER 


category: 

■ E 3 SYSTEM 
M r 3 UTILITY 


EX  3 
E 3 


t 


jnction: 

Determine  magnitude  of  given  number 


rOCATION  / ACCESS  PROCEDURE: 


APF'L  I CAT  I ON 
OTHER- 


« 

«l 


%GRFP 


XECUTING 


CR19 


PROCEDURE 


/ CALLING 


SEQUENCE : 


Description: 


I = MAC (xx) 

xx  — given  real  number 
Value  return  is  magnitude  of  number, 
i.e.  if  xx  = 1234.5,  1=3 
if  xx  = .012,  I = -2 


I 

I] 

0 

1 

I 

fi 

I 
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DFTWARE  DOCUMENTATION 


f 

mj 


wme: 


MC . ALL 


AUTHOR 


Lehman 


8-28-79 


type: 

■I  I "I  PROGRAM 
^ T 3 SUBROUTINE 
C 3 FUNCTION 


1 

1 


nguagf: 

r 3 FORTRAN 

r 3 RELOCATABLE  ASSEMBL 
T 3 ABSOLUTE  ASSEMBl.Y 


Y 


category: 

B TX3  SYSTEM 
"i  r 3 UTILITY 


version: 

TX3  ORIGINAL 
r 3 REVISION 


rX3  PROCEDURE  FILE 
r 3 OTHER 


CXl  FMGR  COMMANDS 
C 3 ALGOL 

H 3 OTHER 


C 3 APPLICATION 
r 3 OTHER 


^jjnctton: 

Mounts  peripheral  cartridges 
AcATXON  / ACCESS  PROCEDURE: 


Procedure  file  resides  on  Lu2 


ECUTING  PROCEDURE  / CALLING 
: : MC . ALL 


sequence: 


Ascription: 


Mounts  cartridges  with  LU  11  through  27 


SOFTWARE  DOCUMENTATION 


NAME: 


MDM 


AUTHOR  J __H_H_ntsma_n_ 


version: 

Tx  3 ORIGINAL 
C 3 REVISION 


DATE?  ^-3/1/79 

type: 

C 3 PROGRAM 
a 3 SUBROUTINE 
E 3 FUNCTION 

language: 

E X]  FORTRAN 

C 3 RELOCATABLE  ASSEMBL.Y 
E 3 ABSOLUTE  ASSEMBLY 


E 3 PROCEDURE  FILE 
E 3 OTHER 


C 3 FMGR  COMMANDS 
E 3 ALGOL 

E 3 OTHER 


category: 

_ EXl  SYSTEM 

ij]  E X]  UTILITY 

function: 

^Junts  or  dismounts  peripheral  disc  cartridges 

> 

V LOCATION  / ACCESS  PROCEDURE: 

Source  and  object  on  CRT 8. 

a 


3 APPLICATION 
3 OTHER 


1 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE J 
"ALL  MDM  ( I CART  , MODE) 
description: 


fMDM  checks  the  status  of  the  requested  cartridge,  then  if  appropriate,  schedules 
mount  or  dismount  it. 

ARGUMENTS : 

■ICART:  Cartridge  reference  § • 

-.o  MODE:  l=mount,  2=dismount 


SOFTWARE  DOCUMENTATION 


name:__MH! 

AUTHOR: Lehman 


version: 

CXI  ORIGINAL 
C 3 REVISION 


I 

1 


DATE :_  5/5/77 

type: 

C PROGRAM 
C 3 SUBROUTINE 
C 3 FUNCTION 

language: 

r :i  FORTRAN 

Cx^  RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 

category: 


r 3 PROCEDURE  FILE 
C 3 OTHER 


T 3 FMGR  COMMANDS 
r 3 ALGOL 
C 3 OTHER 


i 


Cx3 

C 3 


SYSTEM 

UTILITY 


function: 

lashes  switfch  register  lights. 


■ 


. LOCATION  / ACCESS  PROCEDURE 

ource  on  CRT 8 ; object  on  CR27  SYSGEN; 


C 3 APPLICATION 
C 3 OTHER ^ 


included  as  permanent  program  at  system  generation 


( 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

RU  , MEM  -or-  : SYRU,  MEM 


™ description: 


- can  be 


□FTWARE  DOCUMENTATION 


»me  : ...N.E.WP.G 


AUTHOR: 


type: 

IT  3 PROGRAM 

r.  XI  SUBROUTINE 
t 3 FUNCTION 


NGUAGEI 
CXI  FORTRAN 


C 1 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 


category: 

I TXT  SYSTEM 
r XT  UTILITY 


version: 

TXT  ORIGINAL, 
r 3 REVISION 


C 3 PROCEDURE  FILE. 
C 3 OTHER. 


C 3 FMGR  COMMANDS 

C 3 ALGOL 

C.  3 OTHER..  ... 


CX3  APPLICATION 
C 3 OTHER 


IJNGTJQN J 

Clears  the  screen  and  positions  the  beam  to  the  home  posi 
_ 


Source  file  on  CR  13 

XECUT TNG  PROCEDURE  / CALLING  SEQUENCE : 
Call  NEWPG 


ESCRIPT ION 


1ETWARE  DOCUMENTATION 


i 

n?i 


ame:__. 


NMLST 


UTHflR  J ...  Larson 


1 

T 

M 

I 

■ 

Ci 

« 


ATE « 


type: 

r 1 PROGRAM 
rx.l  SUBROUTINE 
C 1 FUNCTION 

anguage: 

rxi  FORTRAN 

r 3 RELOCATABLE  ASSEMBLY 
r a ABSOLUTE  ASSEMBLY 


category: 

r 1 SYSTEM 
rx.1  UTILITY 


version: 

rx1  ORIGINAL 

r.  a revision 


C a PROCEDURE  FILE 
C a OTHER.. 


r a FMGR  COMMANDS 
r a algol 

r a other 


CXI  APPLICATION 

r a other 


« 

■ 


function: 

Allows  the  user  to  change  the  value  of  a previously  defined  COMMON  variable 


■ 

ij 

■ 


■□CATION  / ACCESS  PROCEDURE: 

Source  and  rom  reside  on  13 
XECUTING  PROCEDURE  / CALLING  SEQUENCE ♦ 


See  58a,  58b. 
RESCRIPT  I ON: 


% 


MEMORANDUM 


DATE:  July  31,  1978 

TO:  HP  21  MX  Users 

FROM:  Wendy  Larson 

RE:  Namelist  Subroutine 


Subroutine  NMLST  ( ICVAR,  INDX,  VALU,  NUMC,  NICVAR)  allows  the  value  of 
previously  defined  variable  in  COMMON  to  be  changed.  It  reads  the  changes  to  be 
made  either  directly  from  the  user's  terminal  or  from  a data  file.  The  variable 
is  then  located  in  COMMON  and  the  value  is  converted  to  a numeric  value. 

ICVAR  An  array  defined  in  the  calling  program  which  contains  all  the 
variable  names  from  COMMON.  Each  variable  is  expressed  as 
exactly  6 hollerith  characters,  and  is  divided  into  three 
elements  containing  two  characters  each. 

INDX  An  array  returned  from  NMLST  containing  the  index  (i)  to  the 
ith  element  in  COMMON  whose  value  will  be  input. 

VALU  An  array  returned  from  NMLST  containing  the  new  value  to  be  used. 
These  values  are  stored  in  the  same  order  as  they  were  read. 

NUMC  Returned  from  subroutine  - the  number  of  variables  that  were  read 
in  to  be  changed. 

NICVAR  The  dimension  of  ICVAR 

All  the  variable  names  that  may  be  changed  must  appear  in  COMMON.  These 
same  variable  names  must  be  in  the  array  ICVAR  in  the  same  order  they  appear  in 
COMMON,  e.g. , COMMON  KAC,  KSR, 


DATA  ICVAR  / 2HKA,  2HC,  2H,  2HKS , 2 HR,  

The  new  value  of  the  specified  value  is  not  assigned  to  the  variable  in 
the  subroutine.  INDX  (K),  which  is  returned  from  NMLST,  tells  which  element  in 
COMMON  will  be  changed.  A series  of  steps  must  be  set  up  in  the  calling  program 
after  the  call  to  NMLST  which  will  set  the  ith  (INDX  (K)  = i)  element  in  COMMON 
equal  to  VALU.  Assuming  the  elements  in  COMMON  have  been  equivalenced  to  an 
array,  IPARAM  or  RPARAM,  which  is  dimensioned  the  same  size  as  COMMON,  the  steps 
would  be: 


10 


DO  10  I = 1,  NUMC 

IPARAM  (INDX  (I))  = VALU  (I) 

CONTINUE 


58a 


If  COMMON  contains  both  integer  and  real  variables,  an  expansion  of 
this  code  will  be  required  because  the  COMMON  variables  will  have  to  be 
equivaienced  to  2 arrays  (RPARAM  & IPARAM). 

Be  sure  COMMON  ITEK  (45)  is  included  in  the  calling  program. 

If  the  changes  are  read  from  a data  file,  it  must  be  in  this  form: 


VARIABLE  NAME  = VALUE 

e.g.  KAC  = 3 

KSR  = 1 
* 

The  end  of  data  must  be  indicated  by  an  in  the  1st  column. 
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L 

o^IFTLIAR'F.  documentation 


f 

hU 


ME 


02D 


Hu THOR 


version: 

1x3  ORIGINAL 
r.  3 REVISION 


type: 

H r x3  PROGRAM 
^ n 3 SUBROUTINE 
f.  3 FUNCTION 


nguage: 

T.  x3  FORTRAN 


r 3 RELOCATABLE  ASSEMBLY 
r 3 ABSOLUTE  ASSEMBLY 


category: 

■■  r.  3 system 
^ Tx3  utility 


t 3 PROCEDURE  FILE 

r 3 other... 


r 3 FMGR  COMMANDS 
r 3 ALGOL 

r 3 other 


n 3 APPLICATION 

r 3 OTHER.. 


m 

n. 


men  obit 

Conversions  from  octal  to  decimal 


Location  / access  procedure: 


M 

« 

* 

n 

i 

■ 

i] 

« 

■ 

« 


Source  file  on  cartridge  13 


ECUTING  PROCEDURE  / CALLING  SEQUENCE: 
RU,  02D 

SCRIPT I on: 


The  user  is  asked  to  respond  with  the  octal  number  to  be  converted, 
conversion  is  then  displayed. 


The  decimal 
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FT WARE  DOCUMENT ATT ON 


* 


ME 


OCT 


author:... 


iTE 


TYPF  J 


m 


r xi 


PROGRAM 

SUBROUTINE 

FUNCTION 


nguagf: 

r XI  FORTRAN 


r 1 RELOCATABLE  ASSEMBLY 
t:  3 ABSOLUTE  ASSEMBLY 


category: 

Mi  l SYSTEM 
^ L 1 UTILITY 


ofrsion: 

rxi  ORIGINAL 
C 1 REVISION 


r 1 PROCEDURE  FILE 
r 1 OTHER 


r 3 FMGR  COMMANDS 
T 3 ALGOL 
r 3 OTHER-.. 


LX!  APPLICATION 
E 3 OTHER 


t NOTION  ? 

Converts  user  input  from  decimal  to  octal 


4>CATION  / ACCESS  PROCEDURE! 


4 

4 


Source  file  on  CR  13  ( & D2.0) 

ECUTING  PROCEDURE  / CALLING  SEQUENCE 
RU,  OCT 


SCRIPT I on: 


♦ 


The  program  asks  for  the  decimal  number  to  be  displayed  and  then  displays  the 
octal  conversion  for  the  user. 


SOFTWARE  DOCUMENTATION 


name:  ofalgl 

AUTHOR:  ...Lehman. 

version: 

r. x3  original 

r 3 REVISION 

hate: U)}1TI 1 

type: 

L 3 PROGRAM 
C 3 SUBROUTINE 
C 3 FUNCTION 

CX3 
C 3 

PROCEDURE  FILE 
OTHER 

language: 

L 3 FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
f 3 ABSOLUTE  ASSEMBLY 

TX3 
C 3 
r.  3 

FMGR  COMMANDS 

ALGOL 

OTHER 

category: 

LX 3 SYSTEM 
l 3 UTILITY 

i 3 

r.  3 

APPLICATION 

OTHER 

function: 

Releases  ID  segments  of  the  RTE  ALGOL  compiler 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  is  on  lu  2. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

j_:0FALG0L  -ror-  * RU,  FMGR,  OF,  AL,  GL 

description: 

Releases  ID  segments  of  the  RTE  ALGOL  compiler 
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SOFTWARE  DOCUMENTATION 


name: 

AUTHOR : 

date:_._J/15„/Z9_ 


typf: 

r 3 PROGRAM 
C 3 SUBROUTINE 
T 3 FUNCTION 


version: 

Lx 3 ORIGINAL 
C 3 REVISION 


CX 3 PROCEDURE  FILE 
f 3 OTHER 


language: 

C 3 FORTRAN 

r 3 RELOCATABLE  ASSEMBLY 
L 3 ABSOLUTE  ASSFMBL.Y 

category: 

C X3  SYSTEM 
t 3 UTILITY 

function: 


rx  3 FMGR  COMMANDS 
I 3 ALGOL. 

C 3 OTHER 


r.  3 APPLICATION 
C 3 OTHER 


Releases  ID  segments  of  the  RTE  assembler 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  resides  op.  lu  2 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE : 

1 : OFAP  -or-  * RU,  FMGR,  OF,  AP 

description: 

Releases  ID  segments  of  the  RTE  assembler. 


SOFTWARE  DOCUMENTATION 


name:  ofedi  _ ' _ 

version: 

author!  Lehman 

LX3 
r 3 

original 

REVISION 

date:J/JA/79__  

type: 

■ 

C 3 PROGRAM 

CX3 

PROCEDURE  FILE 

C 3 subroutine 

C 3 FUNCTION 

C 3 

OTHER 

language: 

L 3 FORTRAN 

C X3 

FMGR  COMMANDS 

C 3 RELOCATABLE  ASSEMBLY 

E 3 

ALGOL. 

E 3 ABSOLUTE  ASSEMBLY 

C 3 

OTHER 

category: 

Cx  3 SYSTEM 

C 3 

APPLICATION 

r 3 UTILITY 

C 3 

OTHER 

function: 

Releases  ID  segments  of  all  possible 

copies  of 

EDITR  created  by  : EDIT 

LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  resides  in  lu  2. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

: : OFEDI  -or-  * RU , FMGR,  OF,  ED,  I 


description: 


Releases  ID  segments  of  all  possible  copies  of  EDITR  created  by  : EDI T 


/ 
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t 


I 


I 

I 

I 

I 

I 

I 

I 


software:  documentation 


name  :...9™L version: 

EX  3 ORIGINAL 

author:  _!-_ehman c 3 REVISION 

DATE:— JlZ.L5/79_ 

type: 

C 3 PROGRAM 
T 3 SUBROUTINE 
C 3 FUNCTION 

language: 

C 3 FORTRAN 
r 3 RELOCAT ABL 
L 3 ABSOLUTE  A 

category: 

Cx'J  SYSTEM 
C 3 UTILITY 

function: 

Releases  ID  segments  of  all  possible  copies  of  FMGR  created  by  FMG 


LOCATION  / ACCESS  PROCEDURE: 


Procedure  file  resides  on  lu  2. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

: OF FMG  -or-  * RU,  FMGR,  OF,  FM,  G 


description: 


Releases  ID  segments  of  all  possible  segments  created  by  FMG. 


Ex  3 PROCEDURE  FILE 
C 3 OTHER 


r X H FMGR  COMMANDS 
r 3 ALGOL. 

C 3 OTHER 


r.  3 APPLICATION 
C 3 OTHER 


E ASSEMBLY 
SSEMBL  Y 


I 

I 

I 

I 


I 

I 

i 

I 

i 

i 


SOFTWARE  DOCUMENTATION 


NAME ! _0FFJN 

AUTHOR : Lehman. 

date: l/J  5/7.9. 

type: 

C 3 PROGRAM 
L 3 SUBROUTINE 
L 3 FUNCTION 

language: 

C 3 FORTRAN 

L 3 RELOCATABLE  ASSEMBI..Y 
T 3 ABSOI..UTE  ASSEMBLY 

category: 

L XI  SYSTEM 
C 3 UTILITY 

function: 

Releases  ID  segments  all  possible 


version: 

C X3  ORIGINAL 
r 3 REVISION 


C X3  PROCEDURE  FILE 
C 3 OTHER 


C X3  FMGR  COMMANDS 
r 3 ALGOL 
T 3 OTHER 


C 3 APPLICATION 
F 3 OTHER 


copies  of  FTN4  created  by  :F0RT 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  resides  on  lu  2. 

t 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE! 

1 :0FFTN  -or-  *RU,  FMGR,  OF,  FT,  N 
description:  ; 

Releases  ID  segments  of  all  possible  copies  of  FTN4  created  by  :F0RT 


SOFTWARE  DOCUMENTATION 


NAME  J QT-SpL- 

AUTHOR : Lehman 

hate  : 19JJJJ1 

TYPE  J 

E 3 PROGRAM 
CX  3 SUBROUTINE 
T 3 FUNCTION 

language: 

r X'J  FORTRAN 

E 3 RELOCATABLE  ASSEMBLY 
E 3 ABSOLUTE  ASSEMBLY 

CATEGORY! 

E X'J  SYSTEM 
E 3 UTILITY 

function: 

Spools  output  to  line  printer 


version: 

r x3  ORIGINAL 
C 3 REVISION 


Z 3 PROCEDURE  FILE 
E 3 OTHER 


C 3 FMGR  COMMANDS 
E 3 ALGOL 

E 3 OTHER 


E 3 APPLICATION 
E 3 OTHER 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRTS;  object  on  CR27  SYSGEN;  included  in  library  at  system  generation. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 
CALLOTSPL  (JLUjKODE) 


description: 

Subroutine  OTSPL  (LU,  KODE)  allows  spooled  output  the  line  printer  in  a 
non-batch  environment. 

ARGUMENTS: 

LU-  the  logical  unit  returned  that  has  been  associated  with  the 
line  printer  (negative  implies  FMGR  error  on  spool  file  open) 

KODE-  request  code 

1 . obtain  an  lu, 

2,  release  the  lu, 
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SOFTWARE  DOCUMENTATION 

N A M E : version: 

r x'l  ORIGINAL 

author: Lehman c REVISION 

DATE  J L^/J/Z!L 

TYPE : 

C 3 PROGRAM 
C 3 SUBROUTINE 
L 3 FUNCTION 

language: 

C 3 FORTRAN 
r 3 RELOCATABL 
L 3 ABSOLUTE  A 

category: 

C X3  SYSTEM 
C 3 UTILITY 

function: 

packs  system  discs. 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  resides  on  1u  2 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

|£lA 

1 : PACK  -or-  * RU  , FMGR,  PA,  CK 


description: 

Does  necessary  setup,  then  packs  lu  2 and  lu  3.  Must  be  executed  from  FMGR.  not 
a copy. 


r.  3 APPLICATION 
r 3 OTHER 


CX3 

PROCEDURE  FILE 

E 3 

OTHER 

CX3 

FMGR  COMMANDS 

E ASSEMBLY 

F 3 

ALGOL 

SSEMBLY 

r 3 

OTHER 
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®)FT U A R F DOCUMFN T A T ION 


tn'iF  t PLANIT  

JTHORJ  Vagner 




type: 

tB  T 3 PROGRAM 
m r 3 SUBROUTINE 
F 3 FUNCTION 


NGIJAGF  * 

C 3 FORTRAN 


I 


T 3 RFLOCAT ABLF  ASSEMBL  Y 
C 3 ABSOLUTE  ASSEMBLY 


category: 

ILx3  SYSTFM 
r.  x*  UTILITY 


version: 

rx3  original 
r 3 REVISION 


r.Xl  PROCEDURE  FILE 
T 3 OTHER 


Fx3  FMGR  COMMANDS 
F 3 ALGOL 

r 3 OTHER - 


r.  3 APPLICATION 
L 3 OTHER 


junction: 

* Runs  SEAMPLAN 

Location  / access  procedure: 


j j Procedure  file  resides  on  LU2 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 
* J_:  PLANIT 

(esoription: 


■Mounts  cartridges  LU  17,  18,  23,  then  transfers  control  to  SPLAN.  Upon  completion 
the  cartridges  are  then  dismounted. 

I 

I 

I 

B 

I 

I 
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r.) F T U ARE  DOCUMENTATION 


t 


AM F i ...P.L0.L 


AUTHOR  t ...Huntsman. 


^ATE : 

TYPE  ♦ 

m I 1 PROGRAM 
^ fX3  SUBROUTINE 
r 3 FUNCTION 


lANGUAGEJ 
1 CX3  FORTRAN 

f 3 RELOCATABLE  ASSEMBLY 
I r.  3 ABSOLUTE  ASSEMBLY 


category: 

■ IT.X3  SYSTEM 
m nxi  UTILITY 


version: 

fXll  ORIGINAL 
r 3 REVISION 


i:  .1  PROCEDURE  FILE 
r 3 OTHER 


C 3 FMRR  COMMANDS 
f.  3 ALGOS 

r.  1 OTHER 


r 3 APPLICATION 
F 3 OTHER 


junction: 

Plotter  operations  procedures 

Location  / access  procedure: 

I | Source  file  resides  on  CR  13 
jXECUTJ.ND  PROCEDURE  / CALLING  SEQUENCE: 

Description: 


SOFTWARE  DOCUMENTATION 


NAME ! __^*l°Jll0/_LC^ 

AUTHOR : Tektronix/Lehman 

date: 


version: 

C :i  ORIGINAL 
ty3  REVISION 


type: 

L 3 PROGRAM 
CX:  SUBROUTINE 
r.  3 FUNCTION 

language: 

Evil  FORTRAN 

L 3 RELOCATABLE  ASSEMBLY 
T 3 ABSOLUTE  ASSEMBLY 


L 3 PROCEDURE  FILE. 
C 3 OTHER 


C 3 FMGR  COMMANDS 
I 3 ALGOL 
H 3 OTHER 


category: 

C v 3 SYSTEM 
Cx3  UTILITY 


C 3 APPLICATION 
r 3 OTHER 


function: 

Provide  software  access  to  Tektronix  graphics  terminals. 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRIB;  object  on  CR27  SYSGEN;  included  in  library  at  system  generati 
EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 


description: 

See  bmloc 

Subroutine  name  have  been  shortened  for  HP  implementation. 
Non-essential  routines  and  variables  have  been  eliminated. 


. 


FT WARE  DOCUMENTATION 


■A ME  J 


POLY 


I 


■ tf;  sept.  1979 


type: 

■ r 3 PROGRAM 

V Lx3  SUBROUTINE 

L 3 FUNCTION 

■anguagf.  : 

m Lx3  FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 

■ IT  3 ABSOLUTE  ASSEMBLY 


category: 

■ r i system 
H ! r„  3 UTILITY 


I 


INC  T I on: 

Polygon  generator 


version: 

1X3  ORIGINAL 
r 3 REVISION 


r 3 PROCEDURE  file 
r 3 OTHER 


r.  3 FMGR  COMMANDS 
r.  3 ALGOL 

C 3 OTHER 


fx 3 APPLICATION 
C 3 OTHER* 


(dCATION  / ACCESS  PROCEDURE: 


I 

f 


%GRFP 


ECUTIN6 


CR19 


PROCEDURE 


/ CALLING  SEQUENCE: 


Description: 

I] 


CALL  POLY  (NPTS , XX,  YY  ISCALE,  INANGLE) 
NPTS  --  number  of  endpoints 

>0.)  number  of  polygon  corners 
<A0.)  number  of  points  on  STAT  figure 
XX  — X coordinate  of  center  point 
YY  — Y coordinate  of  center  point 
ISCALE  — radius  length  (screen  raster  uni 
IANGLE  — Angle  of  rotation  (degrees) 


SOFTWARE  DOCUMENTATION 


name: 


_P.R0.GS. 


version: 


I 

I 

I 

0 

s 

[ 


AUTHOR : _Lekn.a n/Uun tsman— 

l 3 

tX  3 

ORIGINAL 

REVISION 

DATE:  5/J/Z7- 

type: 

L 3 PROGRAM 
C 3 SUBROUTINE 
C 3 FUNCTION 

C 3 

PROCEDURE  FILE 
OTHER 

language: 

C 3 FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
T 3 ABSOLUTF  ASSEMBLY 

C 3 
C 3 

FMGR  COMMANDS 

ALGOL 

OTHER 

category: 

CX3  SYSTEM 
r 3 UTILITY 

r.  3 

C 3 

APPLICATION 

OTHER 

function: 

Displays  current  ID  segment  table. 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRTS;  object  on  CR27  SYSGEN;  included 
generation. 


as  permanent  program  at  system 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

PROGS,  lu  LI] 


j description: 

Programs  with  ID  segments  are  listed  on  the  lu  device 
is  nonzero s segments  are  also  listed. 


If  the  second  parameter 


. 


SOFTWARE  DOCUMENTATION 


NAME  J PU.CMDI VERS  I ON  J 

c Xj  original 

author: Lehman r 3 revision 

hate: mm 

type: 

r 3 program 

C 3 SUBROUTINE 
C 3 FUNCTION 

language; 

l 3 FORTRAN 
C 3 RELOCATABL 
T 3 ABSOLUTE  A 

category: 

tx  3 SYSTEM 
C 3 UTIL.ITY 

function: 

Purges  job  files  created  by  TTYXX. 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  is  on  lu  2. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

: : PUCMDF  - or-  * RU  , FMGR,  PU,  CM,  DF 


DESCRIPTION : 

Purges  the  batch  job  files  built  by  TTYXX 


F 3 APPLICATION 
E 3 OTHER 


H(3  PROCEDURE  FILE 
C 3 OTHER 


E ASSEMBLY 
SSEMBLY 


EX  3 FMGR  COMMANDS 
C 3 ALGOL. 

T 3 OTHER 


. See  also  TTYXX 


version; 

rx3  ORIGINAL 

r:  i revision 


C 3 PROCEDURE  FILE 
t 1 OTHER- 


C 3 FMGR  COMMANDS 
f 3 ALGOL 

L 3 OTHER 


CX3  APPLICATION 

I 3 OTHER- 

junction; 

y I SET,  CRT  screen  window  proportional  to  existing  virtual  window. 

■ 

LOCATION  / ACCESS  PROCEDURE; 

■ %GRFP  on  CR19 


jJXECUTING  PROCEDURE  / CALLING  SEQUENCE  i CALL  PWNDO  (ISXMIN,  ISXMAX,  ISYMIN,  ISYMAX) 
Arguments  are  the  minimum  and  maximum  allowable  CRT  screen  window  boundry  coordinates. 

(escrif'tion: 

I 
I 
K 
K 
I 
I 


^.iftuarf:  documentation 



aiTHOR i 

|^JpTE»  Sept.  1979 

type; 

£■  L 3 PROGRAM 
^ IT.  *3  SUBROUTINE 
C 3 FUNCTION 

ftNGUAGE ; 

CX3  FORTRAN 
C 3 RELOCATABLE  ASSEMBLY 
j|  T 3 ABSOLUTE  ASSEMBLY 

category; 

M r :i  system 

^13  UTILITY 
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SOFTWARE  DOCUMENTATION 


version: 


AUTHOR: Lehman 


rx  :i  ORIGINAL 
r.  3 REVISION 


DATE 


en/Jl 


type: 


C 3 PROGRAM 
T 3 SUBROUTINE 
C 3 FUNCTION 


C X3  PROCEDURE  FILE 


C 3 OTHER 


language: 

L 3 FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
T 3 ABSOLUTE  ASSEMBLY 


LX  3 FMGR  COMMANDS 
IT.  3 ALGOL 
C 3 OTHER 


category: 


Cy  3 SYSTEM 
E .3  UTILITY 


C 3 APPLICATION 


r 3 OTHER 


function: 

Attempts  to  recover  a file  lost  by  a system  crash  during  an  edit  session. 


LOCATION  / ACCESS  PROCEDURE: 

Procedure  file  resides  on  lu  2. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

: : RECOVR 


description: 

The  EDITR  is  repeatedly  scheduled  using  a new  LS  track 
each  time.  If  the  first  line  displayed  is  the  file  lost,  the 
EC  or  ER  command  may  recover  the  file. 
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■'u; 


SOFTWARE  DOCUMENTATION 


name: 


REVU 


author: 


Lehman 


fy  3 ORIGINAL. 
L 3 REVISION 


date: 


2/23/78 


type: 


rX3  PROGRAM 
C 3 SUBROUTINE 
r 3 FUNCTION 


L 3 PROCEDURE  FILE 
C 3 OTHER 


language: 

CXo  FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 


L 3 FMGR  COMMANDS 
r 3 ALGOL 
n 3 OTHER 


category: 


CX3  SYSTEM 
CX3  UTILITY 


L 3 APPLICATION 
L 3 OTHER 


function: 

Disc  file  review. 

LOCATION  / ACCESS  PROCEDURE: 

Source  on  CR18;  object  on  CR27  SYSGEN;  load  module  6n  lu  2. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

1}  REVU  f,luLcr]J 

description: 


76 


SOFTWARE  DOCUMENTATION 


NAME : &NDF- 


AUTHOR 

DATEJ_ 


: Lehman 

1/9/77 


type: 

L 3 PROGRAM 
C 3 SUBROUTINE 
C XU  FUNCTION 


version: 

r.  X3  ORIGINAL 
L 3 REVISION 


r 0 PROCEDURE  FILE 
l 3 OTHER 


language: 

lX3  FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
T 3 ABSOLUTE  ASSEMBLY 


r 3 FMGR  COMMANDS 
L 3 ALGOL 
I 3 OTHER 


category: 

C 3 SYSTEM  L 3 APPLICATION 

rX3  UTILITY  r 3 OTHER 

function: 

Random  fraction  generation. 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRD8;  object  on  CR27  SYSGEN;  included  in  library  at  system  generation 


EXECUTING  PROCEDURE  / 

variable  = RNDF  ( ISEED) 


CALLING 


sequence: 


description: 

ihe  real  variable  will  be  assigned  a random  fraction  using  integer 

ISEED  to  generate  the  fraction.  The  multiplicative  congruential  technique  is 
■employed. 


SOFTWARE  DOCUMENTATION 


name; RNQS 

AUTHOR  J _.Lehman 

date: J/9ZZZ 

type: 

C 3 PROGRAM 
CX3  SUBROUTINE 
C 3 FUNCTION 


version: 

T.X3  ORIGINAL 
r.  3 REVISION 


C 3 PROCEDURE  FILE 
C 3 OTHER 


language: 

Cx  3 FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
T 3 ABSOLUTE  ASSEMBLY 


L 3 FMGR  COMMANDS 
C 3 ALGOL 
C 3 OTHER 


category: 

C 3 SYSTEM  T 3 APPLICATION 

Ex  3 UTILITY  C 3 OTHER 

function: 

Random  fraction  generation. 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CR18;  object  on  CR27  SYSGEN:  included  in  library  at  system  generation. 


EXECUTING  PROCEDURE  / CALLING  SEGUENCF: 
CALL  RNDS  ( 1 SEED , RANDOM) 


description: 

The  argument  RANDOM  will  be  assigned  a random  fraction  using  ISEED  to  generate 
the  fraction.  The  multiplicative  congruential  technique  is  employed. 
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SOFTWARE  DOCUMENTATION 

NAMEJ_i?™LK 

A U T H o r : t o ri v a 

date:__^/1/-7Z_. 

type: 

C 3 PROGRAM 
C 3 SUBROUTINE 
C 3 FUNCTION 

language: 

Cy3  FORTRAN 

T 3 RELOCATABLE  ASSEMBLY 
r 3 ABSOLUTE  ASSEMBLY 

category: 

Cx3  SYSTEM 
C 3 UTILITY 

function: 

Release  global  disc  tracks  not 


version: 

CX  3 ORIGINAL 
T 3 REVISION 


r 3 PROCEDURE  FILE 
C 3 OTHER 


C 3 FMGR  COMMANDS 
C 3 ALGOL 
C 3 OTHER 


C 3 APPLICATION 
T 3 OTHER 


released  by  user  program. 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CR18;  object  on  CR27  SYSGEN;  load  module  resides  on  lu  2. 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

: 1 RU,  RTRAK 


description: 


Returns  global  tracks  to  the  system  which  were  held 
LXEC  call  in  an  aborted  program. 


as  a result  of  an 
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OFTWARE  DOCUMENTAT I ON 


^AMEJ_ 

®UTHOR 


RWNDO 

4 M.  Pexton 


iateu!^i_L9_71 


TYPE  t 

m E 1 PROGRAM 
! CXI  SUBROUTINE 
C 1 FUNGI TON 


anguage: 

[X]  FORTRAN 

T.  1 RELOCATABLE  ASSEMBLY 
r 3 ABSOLUTE  ASSEMBLY 


CATEGORY i 

1C  3 SYSTEM 
r 3 UTILITY 


version: 

CX3  ORIGINAL 

r a revision 


n 3 PROCEDURE  FILE 
C 3 OTHER 


C 3 FKGR  COMMANDS 
r.  a ALGOL 

r a other 


Cx3  APPLICATION 

r a other 


junction: 

* Erase  CRT  screen,  outline  screen  window,  and  label 


I 

I 


OCATION 

%GRFP 


/ ACCESS  procedure: 
CR19 


jXECUTING  PROCEDURE  / CALLING  SEQUENCE: 
Call  RWNDO 

1e  SCRIPT I on: 


SOFTWARE  DOCUMENTATION 


NAME  i — SET  IN 


AUTHOR:  .Lehman 

date:_J/]/7L 


type: 

C X*  PROGRAM 
r :i  SUBROUTINE 
r 0 FUNCTION 


version: 

Ly3  ORIGINAL 
C :i  REVISION 


r.  0 PROCEDURE  FILE 
C 0 OTHER 


. language: 

Cx  :i  FORTRAN 

r 3 RELOCATABLE  ASSEMBL.Y 
T 3 ABSOLUTE  ASSEMBLY 


r 3 FMGR  COMMANDS 
C 3 ALGOL 
r 3 OTHER 


CATEGORY: 

C XI  SYSTEM 
C 3 UTILITY 


r:  3 APPLICATION 
r 3 OTHER 


function: 

Sets  system  clock 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CR13;  object  arid  CR27  SYSGEN;  included  as  permanent  program  at  system 
generation.  J 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

1 : RU  , SETIM 

description: 


Interactive  question/  response 
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SOFTWARE  DOCUMENTATION 


NAME  J SPOLU/SLUGT- 


author: 

DATEJ  — 


Lehman 

10/1/77 


type: 

C 3 PROGRAM 
Ly3  subroutine 

C 3 FUNCTION 


version: 

L 3 ORIGINAL 
[X  3 REVISION 


E 3 PROCEDURE  FILE 
E 3 OTHER 


LANGUAGE : 

CX3  FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
T 3 ABSOLUTE  ASSEMBLY 


E 3 FMGR  COMMANDS 
r.  3 ALGOL 
C 3' OTHER 


category: 

LX  3 SYSTEM 
L 3 UTILITY 


L 3 APPLICATION 
r.  3 OTHER 


function: 

Associates  logical  unit  with  disc  file 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRTS;  object  on  CR27  SYSGEN;  included  in  library  at  system  generation. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 
CALL  SPOLU  (LU,  NAMFL,  IOPEN,  KODE) 


description: 

Subroutine  SPOLU  allows  formatted  or  binary  FORTRAN  writes  and  reads  to 
and  from  disc.  SLUG!  Is  swapped  to  minimize  memory  requirements. 

ARGUMENTS: 

LU-  the  logical  unit  returned  that  is  with  the  disc  file  (negative  implies 
FMGR  error  on  file  open) 

NAMFL-  integer  array  containing  file  name  (if  the  file  doesn't  exist,  it  will 
be  created)  if  IOPEN  / 2 

IOPEN-  flag  indicating  type  of  open: 

1.  read/write, 

2.  read  only, 

3.  write  only, 

KODE-  open/close  flag: 

1.  open, 

-2.  close, 

3.  close  and  purge' 


p FTWARF  ItnCl  I M ENT  A T 1. 0 N 


I 


SRTDL 
iAMe: 


AUTHOR  ? „. 

IATE‘— - 

TYPE  l 

■ T XI  PROGRAM 
1 r 1 SUBROUTINE 
C 1 FUNCTION 


version: 

rX}  ORIGINAL 
t 3 REVISION 


Sanguagfj 
rX]  fortran 

r I RELOCATABLE  ASSEMBLY 
T 3 ABSOLUTE  ASSEMBLY 


category: 

Irx]  SYSTEM 
r.X!  UTILITY 


C 3 PROCEDURE  FILE 

T 3 OTHER-.... 


r 3 EMGR  COMMANDS 
F 3 ALGOL. 

C 3 OTHER 


I.  3 APPLICATION 
r 3 OTHER- 


junction: 

Produces  a sorted  directory  listing  to  a LL  file 


I 


“SCAT I ON  / ACCESS  PROCEDURE : 

J Source  file  resides  on  CR  13 

JXECUTING  PROCEDURE  / CALLING  SEQUENCE ♦ 
RU,  SRTDL,  LU,  LL 


I 


description: 


SOFTWARE  DOCUMENTATION 


name: SV.RS 

author: _QQS 

date: 6/J7J7 

type: 

3 PROGRAM 
T 3 SUBROUTINE 
r.  3 FUNCTION 

language: 

C X3  FORTRAN 

3 RELOCATABLE  ASSEMBLE 
3 ABSOLUTE  ASSEMBLY 

category: 

C 3 SYSTEM 
Cx  3 UTILITY 

function: 

Labeled  tape  processor 


LOCATION  / ACCESS  PROCEDURE: 


Source  on  CR18;  object  on  CR27  SYSGEN;  load  module  resides  on  lu  2 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

1 : RU  3 SUVS  r>p][,p2]] 


description: 


version: 

rx 3 original 

C 3 REVISION 


C 3 PROCEDURE 
r.  3 OTHER 


FILE 


E 3 ALGOL. 
L 3 OTHER. 


r 3 APPLICATION 
r 3 OTHER 


SOFTWARE  DOCUMENTATION 

name: 5V.es version  : 

C 3 ORIGINAL 

AUTHOR :_ -Lehman rx3  REVISION 

date: .10/1/77 

type: 

CX3  PROGRAM 
L 3 SUPROUTINE 
r.  2 FUNCTION 

language: 

rx  3 FORTRAN 
LX  2 RELOCAT ABL 
T 2 ABSOLUTE  A 

category: 

l 2 SYSTEM 
lx  3 UTILITY 

function: 


LOCATION  / ACCESS  PROCEDURE: 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 


C 2 APPLICATION 
L 3 OTHER 


r.  2 PROCEDURE  FILE 
L 3 OTHER 


E ASSEMBLY 
SSEMBLY 


L 3 FMGR  COMMANDS 
C 3 ALGOL 
I 3 OTHER 


description: 

command  imp lemenced  to  save  purged  files  to  mag  tape.  Syntax  identical 


to  SV  command. 


SOFTWARE  DOCUMENTATION 


name: svgs version: 

r.  3 ORIGINAL 

AUTHOR: fthjJBU C X 3 REVISION 

hate  j 4/1/78 

type: 

1^3  PROGRAM 
C 3 SUBROUTINE 
r 3 FUNCTION 

language: 

CX  3 FORTRAN 
CX 3 RELOCATABL 
C 3 ABSOLUTE  A 

category: 

C 3 SYSTEM 
EX  3 UTILITY 

function: 


LOCATION  / ACCFSS  PROCEDURE: 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

J_ ru’  SVRS  I,  pi,  p2,  fl,  f2,  f3] 


description: 


fl,  f2,  f3  may  be  included  as  the  file  name  (2  characters  each)  of  a disc 
file  containing  standard  commands.  If  p2  = 6,  all  commands  produce  a form  feed 
’find  the  command  is  echoed  on  the  line  printer. 


e 3 APPLICATION 
C 3 OTHER 


e 3 PROCEDURE  FILE 
e 3 OTHER : 


E ASSEMBLY 
SSEMBL Y 


e 3 FMGR  COMMANDS 
e 3 ALGOL 
E 3 OTHER 
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SOFTWARE  DOCUMENTATION 


name:„_™LL version: 

r 3 ORIGINAL 

AUTHOR  J J_?  K tCQIU  x/LehlMH  Cx  3 REV  I S ION 

DATE  : 1 ?/l/7 § 

TYPE  * 


r 3 PROGRAM  r 

CX 3 SUBROUTINE  C 

r 3 FUNCTION 

language: 

CX  'J  FORTRAN  T 

C 3 RELOCATABLE  ASSEMBL.Y  C 

C 3 ABSOLUTE  ASSEMBLY  T 

category: 

CX  3 SYSTEM  C 

C X3  UTILITY  C 


function: 

Provide  access  to  digitizing  tablet 

LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRTS;  object  on  CR27  SYSGEN; 


3 PROCEDURE  FILE 
3 OTHER 


3 FMGR  COMMANDS 
3 ALGOL. 

3 OTHER 


3 APPLICATION 
3 OTHER 


included  in  library  at  system  generation 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 


description: 
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IlFTWARE  DOCUMENTATION 
TAB0 

B>MF  : version: 


1 — 

C Xl 

ORIGINAL. 

author: 

r 

3 

REVISION 

J=»te:  — . 

cype: 

j r 3 PROGRAM 

r 

3 

PROCEDURE  FILE 

■ r.  xi  subroutine 

c 

3 

OTHER... 

r.  i function 

■ 

I^nguage: 

C X3  FORTRAN 

r 

3 

FMGR  COMMANDS 

- F 3 RELOCATABLE  ASSEMBLY 

r. 

3 

ALGOL 

| t 1 ABSOLUTE  ASSEMBLY 

r 

3 

OTHER.. 
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IFTWARE  DOCUMENT ATT  ON 
TICK 


gr! 

author: 
|ate: 
type: 


M.  P EXTON 
Sept.  1979 


H 

I 

I 


T 3 PROGRAM 
IT.  XT  SUBROUTINE 
r 3 FUNCTION 

Sanguage: 

r X3  FORTRAN 

r.  3 RELOCATABLE  ASSEMBLY 
T 3 ABSOLUTE  ASSEMBLY 


category: 

II  C 3 SYSTEM 
I r.  3 UTILITY 


version: 

T X3  ORIGINAL 
r 3 REVISION 


r 3 PROCEDURE  FILE 
T 3 OTHER 


r 3 FMGR  COMMANDS 
T 3 ALGOL 

T 3 OTHER. 


Fx3  APPLICATION 
C 3 OTHER 


junction: 

Draw  a tickmark  at  current  CRT  beam  location 

^CATION  / ACCESS  PROCEDURE: 

I %GRFP  CR19 


jXECUTING  PROCEDURE  / CALLING  SEQUENCE: 


ascription: 


CALL  TICK  (ANGLE,  LENGTH) 

Angle  --  Angle  of  line  the  tickmark  is  to 
bisect  (radians) 

Length  Total  length  of  tickmark  (screen 
raster  units) 
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SOFTWARE  DOCUMENTATION 


name: 

TIME 

VERS 

ion: 

author 

. Lehman 

n n 

X 

1_1  !_• 

ORIGINAL 

REVISION 

date: 

12/1/76 

type: 

r x'J 

PROGRAM 

c 

3 

PROCEDURE  FILE 

c :i 

SUBROUT INE 

r 

3 

OTHER  „ 

L 3 

FUNCTION 

language: 

f x:i 

FORTRAN 

r 

3 

FMGR  COMMANDS 

C 11 

RELOCATABLE  ASSEMBL  Y 

r 

3 

ALGOL. 

r 3 

ABSOLUTE  ASSEMBLY 

r 

3 

OTHER  „ 

category: 

C 3 

SYSTEM 

r. 

3 

APPLICATION 

CX3 

LIT  I L..1TY 

r. 

3 

OTHER 

function: 

Displays  current  time  and  date 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CR18;  object  on  CR27  SYSGEN;  included  as  permanent  program  at  system 
genera ti on 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

^ RU,  TIME  [,lu[,-l]] 


description: 

The  current  time  in  hours,  minutes,  seconds  and  AM/PM  as  well  as  the  date 
is  displayed  on  the  specified  lu.  If  -1  is  included  in  the  command  string, 
carriage  return/line  feed  is  suppressed. 


( 
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SOFTWARE  DOCUMENTATION 


NAME  J _ .TRACK. 

Lehman 


author: 
date: 2/a /.77- 


type: 

C X]  PROGRAM 
C 3 SUBROUTINE 
C 3 FUNCTION 


version: 

r X3  ORIGINAL 
r 3 REVISION 


r 3 PROCEDURE  FILE 
C 3 OTHER 


language: 

C 3 FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
T 3 ABSOLUTE  ASSEMBLY 


r 3 FMGR  COMMANDS 
LX  3 ALGOL 
C 3 OTHER 


t 3 APPLICATION 
L 3 OTHER 

function: 

Displays  assigned  tracks. 


category: 

C XI  SYSTEM 
E 3 UTILITY 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRTS;  object  on  CR27  SYSGEN;  included  as  permanent  program  at  system 
generation 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 

( *)  RU s TRACK  [,lu] 

« 


description: 

Displays  current  track  assignment  table  on  lu. 
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software:  documentation 


name:  TTY9 

version: 

AUTHOR  :_..kehman_ 

r d original. 

rx:i  revision 

DATE  J 3/2.0/ Z.8. 


type: 


C Xd  PROGRAM 

r 

d 

PROCEDURE  FILE 

C d SUBROUTINE 

c 

d 

OTHER  ...  _ 

r.  d FUNCTION 

language: 

rxd  FORTRAN 

r. 

d 

FMGR  COMMANDS 

C d RELOCATABLE  ASSEMBI..Y 

[' 

d 

ALGOL 

T d ABSOLUTE  ASSEMBLY 

n 

d 

OTHER  .. 

category: 

C Xd  SYSTEM 

c 

d 

APPLICATION 

r d UTILITY 

r 

d 

OTHER  . _ 

function: 

LOCATION  / ACCESS  PROCEDURE: 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE t 


description: 

If  "UC"  is  entered  as  the  f i rst  command,  the  teletype  will  become  (or  remain) 
the  system  console. 


SOFTWARE  DOCUMENTATION 


NAME : — -TTY9/TTY1-0 
AUTHOR -Lehman  — 
date: S/3/7Z — 


version : 

r 3 ORIGINAL 
nx  3 REVISION 


type: 

CX  3 PROGRAM 
C 3 SUBROUTINE 
C 3 FUNCTION 


r 3 PROCEDURE  FILE 
C 3 OTHER 


language: 

CX  3 FORTRAN 

C 3 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 


C 3 FMGR  COMMANDS 
C 3 ALGOL. 

C 3 OTHER 


category: 

CX  3 SYSTEM 
C 3 UTILITY 


C 3 APPLICATION 
C 3 OTHER 


function: 

Allows  online  operation  of  batch  processor. 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRTS;  object  on  CR27  SYSGEN;  included  as  permanent  programs  at  system 
generation. 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 


DESCRIPTION 


SOFTWARE  DOCUMENTATION 


NAME!  .WEJ.COM. 

AUTHOR!  ...Lehman 

VERSION! 

T 3 ORIGINAL 
EX3  REVISION 

DATE!  9/1/77 

TYPE! 

C 3 PROGRAM 
C 3 SUBROUTINE 
C 3 FUNCTION 

Cx3 
C 3 

PROCEDURE  FILE 
OTHER  .. 

LANGUAGE! 

C 3 FORTRAN 

F 3 RELOCATABLE  ASSEMBLY 
C 3 ABSOLUTE  ASSEMBLY 

a 3 
r 3 
r 3 

FMGR  COMMANDS 
ALGOL 

OTHER 

CATEGORY! 

r /-I  SYSTEM 
C 3 UTILITY 

r 3 
r 3 

APPLICATION 

OTHER 

function: 

Initialize  system  following  bootstrap 

LOCATION  / ACCESS  PROCEDURE! 

Procedure  file  resides  on  lu  2 

EXECUTING  PROCEDURE  / CALLING  SEQUENCE! 

Schedule  automatically  by  FMGR  at  bootstrap 

DESCRIPTION! 

^m,-n]iIZeS  termlnal  and  ll'ne  Pointer,  insures  a copy  of  EDITR  find  FMGR  for  each 
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II 

fl 


F T U A R E nOClIMFNTA T 1 0 N 
XDRW 


- „ M.  Pexton 

author: 


& 


7ExJJI±„19J1 


type: 

T.  3 PROGRAM 
r X3  SUBROUTINE 
IT  3 FUNCTION 


D 

ft 

I 

\ 


nguage: 

C XU  FORTRAN 

I 3 RELOCATABLE  ASSEMBLY 
C.  3 ABSOLUTE  ASSEMBLY 


category: 
r 3 system 
r 3 utility 


notion: 


version: 

rxi  original 

r 1 REVISION 


C 3 PROCEDURE  FILE 
T 3 OTHER 


I.  3 FMGR  COMMANDS 
T 3 ALGOL 

T 3 OTHER 


CXI  APPLICATION 
E 3 OTHER™ 


Draw  an  "X"  through  current  point  of  CRT  beam 


■OCATION  / ACCESS  PROCEDURE  t 
i %GRFP  CR19 


r 


ECUTING  PROCEDURE  / CALLING  SEQUENCE : CALL  XDRW  (ISIZE) 

ISIZE  — Size  of  the  "X"  (screen  raster  units) 


fESCRIPTIONt 
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SOFTWARE  DOCUMENTATION 


name:_..xext£ version: 

C x'l  ORIGINAL 

AUTHOR! -Lehman r 3 REVISION 

date:  JH/TA77 

TYPE : 

Cx  3 PROGRAM 
C 3 SUBROUTINE 
C 3 FUNCTION 

language: 

CX  3 FORTRAN 
r.  3 RELOCATABL 
C 3 ABSOLUTE  A 

category: 

C 3 SYSTEM 
Cx  3 UTILITY 

function: 

File  extent  truncation 


LOCATION  / ACCESS  PROCEDURE: 

Source  on  CRT 8;  object  on  CR27  SYSGEN;  load  module  resides  on  lu  2. 


r 3 APPLICATION 
C 3 OTHER 


C 3 PROCEDURE  FILE 
C 3 OTHER 


E ASSEMBLY 
SSEMBL.Y 


C 3 EMGR  COMMANDS 
C 3 ALGOL 
r 3 OTHER 


EXECUTING  PROCEDURE  / CALLING  SEQUENCE: 
::  RU,  XEXTS  [,lu[,cr]] 


DESCRIPTION:  Each  type  3,4,  or  5 file  with  extents  on  the  cartridge  whose 

reference  number  is  "cr"  will  be  consolidated  into  a file  of  the  same  name  with 
no  extents.  If  "cr"  is  not  specified,  the  user  is  interrogated  for  the  appropriate 
cartridge  reference  number. 
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